自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

qin_yaping的博客

一名菜鸡程序猿,正在努力学习中~~~~

  • 博客(59)
  • 收藏
  • 关注

原创 sql怎么取某个字符串最后一次出现的位置后面的字符串

.

2023-03-01 15:01:48 1522

原创 Sql Server查数据库job任务

BEGIN。

2022-11-02 14:10:59 666

转载 SQL SERVER 查询Job作业基本信息及执行情况

3 , 0 , ':' ), 6 , 0 , ':' ) AS '最后运行持续时间'LEFT JOIN [msdb].[dbo].[sysproxies] AS [px]--代理账户信息。,[jstep].[step_uid] AS '作业步骤唯一标识符',[jstep].[step_uid] AS '步骤唯一标识符',[jstep].[step_name] AS '步骤名称',[jstep].[step_name] AS '步骤名称',[step].[step_name] AS '步骤名称'

2022-11-01 14:16:35 3771

转载 SQLServer——MASTER..spt_values

SQLServer——MASTER..spt_values

2022-09-09 10:47:32 1451

转载 GridControll自定义绘制表格颜色

GridControll自定义绘制表格颜色

2022-06-23 16:48:53 351

原创 sql server查询表的主键名跟主键字段

SELECT CONSTRAINT_NAME, COLUMN_NAME = ( STUFF(( SELECT ',' + COLUMN_NAME FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE WHERE TABLE_NAME = Test.TABLE_NAME ...

2022-02-14 16:37:15 1064

原创 c# json字符串转成datatable

JsonConvert.DeserializeObject(paramList[5].ToString())其中paramList[5].ToString()是一个json字符串。可以直接通过这个方法转成DataTable

2021-04-07 21:16:25 222

翻译 SQL删除重复数据只保留一条

SQL删除重复数据只保留一条用SQL语句,删除掉重复项只保留一条在几千条记录里,存在着些相同的记录,如何能用SQL语句,删除掉重复的呢1、查找表中多余的重复记录,重复记录是根据单个字段(peopleId)来判断select * from peoplewhere peopleId in (select peopleId from people group by peopleId having count(peopleId) > 1)2、删除表中多余的重复记录,重复记录是根据单个字段(peop

2020-11-01 00:57:39 6433 3

翻译 Delphi 如何GET/POST 调用HTTP请求

一、GET 请求procedure GetDemo;var IdHttp : TIdHTTP; Url : string;//请求地址 ResponseStream : TStringStream; //返回信息 ResponseStr : string;begin //创建IDHTTP控件 IdHttp := TIdHTTP.Create(nil); //TStringStream对象用于保存响应信息 ResponseStream := TStringStream....

2020-09-07 15:17:47 2428

翻译 C# Process.Start()方法详解

https://blog.csdn.net/chen_zw/article/details/7896264

2020-07-25 17:09:30 198

原创 SQL SERVER列信息转换成字符串信息显示

通过函数STUFF转换例子写法如下:SELECT STUFF((SELECT ';'+SPDM FROM SHANGPIN where SPDM in ('545454','BZSP01','HSP02','HSP05') for xml path('')),1,1,'')

2020-04-11 10:32:34 390

原创 SQL SERVER 存储过程调用时更新自身数据时(脚本例子)

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_ICACZNPH_CKDDPH_PH]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)drop procedure [dbo].[P_ICACZNPH_CKDDPH_PH]GOCREATE procedu...

2020-03-24 10:54:33 207

原创 删除表数据触发器记录删除的数据

create trigger trigger_SDPHDon SDPHDafter deleteasdeclare @DJBH varchar(20)--从删除表里面获取出来这个删除的数据select @DJBH=DJBH from deletedbegin --delete SDPHD_DELETE where DJBH=@DJBH insert into SDP...

2020-02-14 11:42:24 1469

转载 sql 的阻塞查询(2008版本的)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30...

2019-06-04 21:47:46 509

转载 Delphi中copy函数和pos函数

copy(a,b,c);a:就是copy源,就是一个字符串,表示你将要从a里copy一些东西,b:从a中的第b位开始copy(包含第b位),c:copy从第b位开始后的c个字符,exp:m:=‘the fellowship of the ring’s:=copy(m,2,2); ...

2019-05-07 14:12:06 467

翻译 sql server对数据进行先进先出

--> 测试数据:[m]if object_id('[m]') is not null drop table [m]goCreate table m ( ID int not NULL , mCount int not NULL ,mTime datetime not null)INSERT into m(ID,mCount,mTime)SELECT 1,50,'2014-0...

2019-04-25 09:54:27 841

原创 sql 按组分查出一条数据出来

 SELECT * FROM ( SELECT ROW_NUMBER() OVER(PARTITION BY DJBH ORDER BY JE_S ) AS CNT,DJBH,KL FROM HTSZDMX2 ) A WHERE CNT=1 这个语句是按单据编号DJBH分组。相同单据编号分成一个组,给他们CNT号。然后就可以查出一条数据出来了...

2019-01-24 14:31:45 166

原创 设置文本框为数字

procedure TfmQTHTD.edtMJ_1KeyPress(Sender: TObject; var Key: Char);begin  inherited;  if not (Key in ['0'..'9', '.', #08, #13]) then    Key:=#0;  if Key=#13 then  begin    key:=#0;    selectne...

2019-01-21 10:32:06 450

原创 oracle 查存储过程的内容

SELECT text     FROM user_source    WHERE NAME = 'Procedure Name' ORDER BY line

2019-01-10 14:47:47 1768

原创 sql server 2012阻塞查询解锁

selectrequest_session_id spid,OBJECT_NAME(resource_associated_entity_id) tableNamefromsys.dm_tran_lockswhereresource_type='OBJECT'--杀死死锁进程kill spid

2018-09-26 13:43:29 516

转载 Delphi INI文件保存与读取

//需要引用IniFilesuses system.IniFiles;//保存INI配置文件procedure TForm1.btnSaveClick(Sender: TObject);var  myIniFile: TIniFile;  filepath: string;begin  filepath := ExtractFilePath(Application.Exen...

2018-09-13 14:54:19 886

原创 delphi Tdxmemdata控件获取TClientDataSet数据集的数据

直接用它自带的方法LoadFromDataSet去获取数据,转换控件dxMemData1.LoadFromDataSet(TClientDataSet); 

2018-09-10 17:40:34 890

转载 delphi 保留小数点的个位数方法

uses mathRoundTo(0.2668,-2)=0.27

2018-09-03 11:06:30 7492

转载 SQL 重命名表、字段、存储过程名sp_rename

EXEC sp_rename 'CountProce','CountProce1'; ------重命名存储过程名;EXEC sp_rename 'fruits.f_name','f_names','COLUMN';--重命名字段名;EXEC sp_rename 'suppliers','supplier'; -----------重命名表名;...

2018-08-06 11:03:37 1035

原创 sql 列传行

SELECT  vpfcode,        value = ( STUFF(( SELECT    ';' + vMBillID                          FROM      SG_Gatherings                          WHERE     vpfcode  = Test.vpfcode                        FO...

2018-07-13 09:22:00 369

转载 delphi日期函数、日期加减

Delphi里有现成的函数可以实现日期加减,是在DateUtils单元里的。function IncYear(const AValue: TDateTime;const ANumberOfYears: Integer = 1): TDateTime;// function IncMonth is in SysUtilsfunction IncWeek(const AValue: TDateTime...

2018-05-21 10:11:25 4490

转载 delphi DbGridEh数据进行升序降序排序

//传入升序参数procedure TfmJcDjMxBase.mnuDxMainAscClick(Sender: TObject);begin  inherited;  GetMainDataSort('1') ;end;//传入降序参数procedure TfmJcDjMxBase.mnuDxMainEescClick(Sender: TObject);begin  inherited;  G...

2018-05-11 13:32:06 1289

原创 游标格式

          DECLARE auth_cur CURSOR FOR   SELECT MIBH,SPDM FROM LYRJDMX WHERE DJBH=@DJBH open auth_cur fetch next from auth_cur into @MIBH,@SPDMwhile (@@fetch_status=0) BEGIN fetch next from auth_cur in...

2018-05-07 09:35:54 559

原创 Delphi DBGridEh固定锁定列的写法

例如function GetColFroZenCount:Integer;//计算锁定列  try DBG_Master.FrozenCols := GetColFroZenCount; except   DBG_Master.FrozenCols :=0 end;function TFmWDDPH.GetColFroZenCount: Integer;

2018-04-24 12:36:49 1760

原创 delphi Tlientdataset的数据导出来

procedure TFmKhXz.SaveToExcel;varExcelApp,Sheet:Olevariant;  rowcnt:integer;  bk:TBookMark;begintry    bk:=dxSelect.GetBookmark;    if dxSelect.IsEmpty then Exit;    ExcelApp:=Create

2018-04-19 14:20:46 166

翻译 delphi 界面滚动条受鼠标滚动控制

1、添加控件applicationevents2、在这个空间的message事件添加下列方法procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;  var Handled: Boolean);begin  //窗体的滚动条响应鼠标滚轮  if Msg.message = WM_MOUSEWHEEL then

2018-03-06 11:26:23 2604

原创 delphi clientdataset判断字段存在是否存在

if dxmx.findfield('BYZD6')    begin      fm.MePlace.EditValue:=dxMx.fieldByname('BYZD6').Value;      strCFWZ:='BYZD6';    end    else if dxmx.findfield('CFWZ')    begin      fm.MePlace.E

2018-02-27 17:34:19 2185

原创 DELPHI SpeedButton多个在一起设置其中只有一个按下其他的down值就是false

首先在一个panel中放上多个speedbutton控件,设置风格可以自己定义。我拖出来后,修改他们的属性parentBiDimode、parentFont、parentShowHint都为false。Transparent也设置为false。这个是保持speedbutton他自己的颜色主要是设置GroupIndex的值是一样的,这里我设置为1。这样就实现了多个speedButto

2017-12-28 10:21:40 1569

原创 sql server 截取字符串写法

SELECT Left(@strSP,CharIndex(',',@strSP)-1)SELECT SubString(@strSP,CharIndex(',',@strSP)+1,Len(@strSP)-CharIndex(',',@strSP))

2017-12-19 10:34:40 533

转载 dBGridEh 合计设置

1、将dBGridEh.FooterRowCount := 12、将DBGridEh.SumList.Active := True;3、将Columns[要求和的字段].Footer.ValueType := vtSum;就行了最后要注意,在FormCloseQuery事件中,一定要将SumList.Active := False,因为在数据集中的数据多了以后,FormCl

2017-11-30 10:22:16 1973

翻译 SQL死锁查询进程关闭

SELECTes.session_id,database_name = DB_NAME(database_id),er.cpu_time,er.reads,er.writes,er.logical_reads,login_name,er.status,blocking_session_id,wait_type,individual_query = SU

2017-11-15 16:34:43 392

翻译 ORACLE 日期字符格式转换

年月日  时分秒to_date(to_char(SYSDATE,'YYYY-MM-DD  hh24:mi:ss'),'YYYY-MM-DD  hh24:mi:ss')年月日to_date(to_char(SYSDATE,'YYYY-MM-DD'),'YYYY-MM-DD')

2017-11-09 11:46:33 1894

原创 TDbGrideh 画列信息的时候 指定某列是勾选框的写法

procedure TFmExchangeAuditing.InitColumn;vari,j:integer;begin DbGrid1.SumList.Active:=False; DBGrid1.Columns.BeginUpdate; try for i:=0 to dbgrid1.Columns.Count-1 do begin

2017-11-09 10:59:28 880

翻译 在delphi中生成GUID/自动获取临时表名......

什么是 GUID ?全球唯一标识符 (GUID) 是一个字母数字标识符,用于指示产品的唯一性安装。在许多流行软件应用程序(例如 Web 浏览器和媒体播放器)中,都使用 GUID。GUID 的格式为8-4-4-4-12 :“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”其中每个 x 是 0-9 或 A-F 范围内的一个十六进制的数字。例如:6F9619FF

2017-11-02 11:57:25 746

原创 ORACLE 查询是否存在某些要处理的数据,然后再去动态执行下面需要执行的动态语句

DECLARE    N_CNT NUMBER(1,0);  BEGIN    v_StrSql2:='SELECT COUNT(1) FROM ' || v_TblName || ' WHERE DJBH='''|| v_DJBH ||''' AND JZ=''1'' ';    EXECUTE IMMEDIATE v_strSql2 INTO N_CNT;        I

2017-10-25 15:05:35 568

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除