⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ckdcx_find1.pas

📁 delphi开发的委托加工管理系统源代码
💻 PAS
字号:
🔍 
unit ckdcx_find1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, RzRadChk, StdCtrls, ComCtrls, ExtCtrls, RzPanel;

type
  Tckdcx_find = class(TForm)
    RzGroupBox1: TRzGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    RzCheckBox1: TRzCheckBox;
    RzGroupBox2: TRzGroupBox;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzCheckBox2: TRzCheckBox;
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ckdcx_find: Tckdcx_find;

implementation

uses ckdcx1;

{$R *.dfm}

procedure Tckdcx_find.RzBitBtn2Click(Sender: TObject);
begin
close
end;

procedure Tckdcx_find.FormCreate(Sender: TObject);
begin
datetimepicker1.DateTime:=now;
datetimepicker2.DateTime:=now
end;

procedure Tckdcx_find.RzBitBtn1Click(Sender: TObject);
begin
if rzcheckbox1.Checked then
begin
ckdcx.ADODataSet1.Active:=false;
ckdcx.ADODataSet1.CommandText:='SELECT ckdata.日期,ckdata.单据编号,ckdata.委托单号,ckdata.物料代码,ckdata.品名,ckdata.加工类型,ckdata.数量,ckdata.金额,ckdata.jgmoney AS 加工费,ckdata.库别,ckdata.厂家,ckdata.状态,fclose as 关闭,ckdata.mon AS 月份,ckdata.备注'
+' FROM ckdata order by 日期,物料代码';
ckdcx.ADODataSet1.Active:=true;
ckdcx.DBGridEh1.Columns[0].Width:=60;
ckdcx.DBGridEh1.Columns[1].Width:=80;
ckdcx.DBGridEh1.Columns[2].Width:=100;
ckdcx.DBGridEh1.Columns[3].Width:=150;
ckdcx.DBGridEh1.Columns[4].Width:=120;
ckdcx.DBGridEh1.Columns[5].Width:=80;
ckdcx.DBGridEh1.Columns[6].Width:=60;
ckdcx.DBGridEh1.Columns[7].Width:=60;
ckdcx.DBGridEh1.Columns[8].Width:=60;
ckdcx.DBGridEh1.Columns[9].Width:=80;
ckdcx.DBGridEh1.Columns[10].Width:=100;
ckdcx.DBGridEh1.Columns[11].Width:=80;
if edit1.Text<>'' then
begin
ckdcx.ADODataSet1.Active:=false;
ckdcx.ADODataSet1.CommandText:='SELECT ckdata.日期,ckdata.单据编号,ckdata.委托单号,ckdata.物料代码,ckdata.品名,ckdata.加工类型,ckdata.数量,ckdata.金额,ckdata.jgmoney AS 加工费,ckdata.库别,ckdata.厂家,ckdata.状态,fclose as 关闭,ckdata.mon AS 月份,ckdata.备注'
+' FROM ckdata where 委托单号 like ''%'+trim(edit1.Text)+'%'' order  by 日期,物料代码';
ckdcx.ADODataSet1.Active:=true;
ckdcx.DBGridEh1.Columns[0].Width:=60;
ckdcx.DBGridEh1.Columns[1].Width:=80;
ckdcx.DBGridEh1.Columns[2].Width:=100;
ckdcx.DBGridEh1.Columns[3].Width:=150;
ckdcx.DBGridEh1.Columns[4].Width:=120;
ckdcx.DBGridEh1.Columns[5].Width:=80;
ckdcx.DBGridEh1.Columns[6].Width:=60;
ckdcx.DBGridEh1.Columns[7].Width:=60;
ckdcx.DBGridEh1.Columns[8].Width:=60;
ckdcx.DBGridEh1.Columns[9].Width:=80;
ckdcx.DBGridEh1.Columns[10].Width:=100;
ckdcx.DBGridEh1.Columns[11].Width:=80;
end;
if edit2.Text<>'' then
begin
ckdcx.ADODataSet1.Active:=false;
ckdcx.ADODataSet1.CommandText:='SELECT ckdata.日期,ckdata.单据编号,ckdata.委托单号,ckdata.物料代码,ckdata.品名,ckdata.加工类型,ckdata.数量,ckdata.金额,ckdata.jgmoney AS 加工费,ckdata.库别,ckdata.厂家,ckdata.状态,fclose as 关闭,ckdata.mon AS 月份,ckdata.备注'
+' FROM ckdata where 物料代码 like ''%'+trim(edit2.Text)+'%'' order  by 日期,物料代码';
ckdcx.ADODataSet1.Active:=true;
ckdcx.DBGridEh1.Columns[0].Width:=60;
ckdcx.DBGridEh1.Columns[1].Width:=80;
ckdcx.DBGridEh1.Columns[2].Width:=100;
ckdcx.DBGridEh1.Columns[3].Width:=150;
ckdcx.DBGridEh1.Columns[4].Width:=120;
ckdcx.DBGridEh1.Columns[5].Width:=80;
ckdcx.DBGridEh1.Columns[6].Width:=60;
ckdcx.DBGridEh1.Columns[7].Width:=60;
ckdcx.DBGridEh1.Columns[8].Width:=60;
ckdcx.DBGridEh1.Columns[9].Width:=80;
ckdcx.DBGridEh1.Columns[10].Width:=100;
ckdcx.DBGridEh1.Columns[11].Width:=80;
end;
if (edit2.Text<>'') AND (edit1.Text<>'') then
begin
ckdcx.ADODataSet1.Active:=false;
ckdcx.ADODataSet1.CommandText:='SELECT ckdata.日期,ckdata.单据编号,ckdata.委托单号,ckdata.物料代码,ckdata.品名,ckdata.加工类型,ckdata.数量,ckdata.金额,ckdata.jgmoney AS 加工费,ckdata.库别,ckdata.厂家,ckdata.状态,fclose as 关闭,ckdata.mon AS 月份,ckdata.备注'
+' FROM ckdata where 物料代码 like ''%'+trim(edit2.Text)+'%'' and 委托单号 like ''%'+trim(edit1.Text)+'%'' order  by 日期,物料代码';
ckdcx.ADODataSet1.Active:=true;
ckdcx.DBGridEh1.Columns[0].Width:=60;
ckdcx.DBGridEh1.Columns[1].Width:=80;
ckdcx.DBGridEh1.Columns[2].Width:=100;
ckdcx.DBGridEh1.Columns[3].Width:=150;
ckdcx.DBGridEh1.Columns[4].Width:=120;
ckdcx.DBGridEh1.Columns[5].Width:=80;
ckdcx.DBGridEh1.Columns[6].Width:=60;
ckdcx.DBGridEh1.Columns[7].Width:=60;
ckdcx.DBGridEh1.Columns[8].Width:=60;
ckdcx.DBGridEh1.Columns[9].Width:=80;
ckdcx.DBGridEh1.Columns[10].Width:=100;
ckdcx.DBGridEh1.Columns[11].Width:=80;
end;
end
else
begin
ckdcx.ADODataSet1.Active:=false;
ckdcx.ADODataSet1.CommandText:='SELECT ckdata.日期,ckdata.单据编号,ckdata.委托单号,ckdata.物料代码,ckdata.品名,ckdata.加工类型,ckdata.数量,ckdata.金额,ckdata.jgmoney AS 加工费,ckdata.库别,ckdata.厂家,ckdata.状态,fclose as 关闭,ckdata.mon AS 月份,ckdata.备注'
+' FROM ckdata where 日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+'# order by 日期,物料代码';
ckdcx.ADODataSet1.Active:=true;
ckdcx.DBGridEh1.Columns[0].Width:=60;
ckdcx.DBGridEh1.Columns[1].Width:=80;
ckdcx.DBGridEh1.Columns[2].Width:=100;
ckdcx.DBGridEh1.Columns[3].Width:=150;
ckdcx.DBGridEh1.Columns[4].Width:=120;
ckdcx.DBGridEh1.Columns[5].Width:=80;
ckdcx.DBGridEh1.Columns[6].Width:=60;
ckdcx.DBGridEh1.Columns[7].Width:=60;
ckdcx.DBGridEh1.Columns[8].Width:=60;
ckdcx.DBGridEh1.Columns[9].Width:=80;
ckdcx.DBGridEh1.Columns[10].Width:=100;
ckdcx.DBGridEh1.Columns[11].Width:=80;
if edit1.Text<>'' then
begin
ckdcx.ADODataSet1.Active:=false;
ckdcx.ADODataSet1.CommandText:='SELECT ckdata.日期,ckdata.单据编号,ckdata.委托单号,ckdata.物料代码,ckdata.品名,ckdata.加工类型,ckdata.数量,ckdata.金额,ckdata.jgmoney AS 加工费,ckdata.库别,ckdata.厂家,ckdata.状态,fclose as 关闭,ckdata.mon AS 月份,ckdata.备注'
+' FROM ckdata where 委托单号 like ''%'+trim(edit1.Text)+'%'' and 日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+'# order  by 日期,物料代码';
ckdcx.ADODataSet1.Active:=true;
ckdcx.DBGridEh1.Columns[0].Width:=60;
ckdcx.DBGridEh1.Columns[1].Width:=80;
ckdcx.DBGridEh1.Columns[2].Width:=100;
ckdcx.DBGridEh1.Columns[3].Width:=150;
ckdcx.DBGridEh1.Columns[4].Width:=120;
ckdcx.DBGridEh1.Columns[5].Width:=80;
ckdcx.DBGridEh1.Columns[6].Width:=60;
ckdcx.DBGridEh1.Columns[7].Width:=60;
ckdcx.DBGridEh1.Columns[8].Width:=60;
ckdcx.DBGridEh1.Columns[9].Width:=80;
ckdcx.DBGridEh1.Columns[10].Width:=100;
ckdcx.DBGridEh1.Columns[11].Width:=80;
end;
if edit2.Text<>'' then
begin
ckdcx.ADODataSet1.Active:=false;
ckdcx.ADODataSet1.CommandText:='SELECT ckdata.日期,ckdata.单据编号,ckdata.委托单号,ckdata.物料代码,ckdata.品名,ckdata.加工类型,ckdata.数量,ckdata.金额,ckdata.jgmoney AS 加工费,ckdata.库别,ckdata.厂家,ckdata.状态,fclose as 关闭,ckdata.mon AS 月份,ckdata.备注'
+' FROM ckdata where 物料代码 like ''%'+trim(edit2.Text)+'%'' and 日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+'# order  by 日期,物料代码';
ckdcx.ADODataSet1.Active:=true;
ckdcx.DBGridEh1.Columns[0].Width:=60;
ckdcx.DBGridEh1.Columns[1].Width:=80;
ckdcx.DBGridEh1.Columns[2].Width:=100;
ckdcx.DBGridEh1.Columns[3].Width:=150;
ckdcx.DBGridEh1.Columns[4].Width:=120;
ckdcx.DBGridEh1.Columns[5].Width:=80;
ckdcx.DBGridEh1.Columns[6].Width:=60;
ckdcx.DBGridEh1.Columns[7].Width:=60;
ckdcx.DBGridEh1.Columns[8].Width:=60;
ckdcx.DBGridEh1.Columns[9].Width:=80;
ckdcx.DBGridEh1.Columns[10].Width:=100;
ckdcx.DBGridEh1.Columns[11].Width:=80;
end;
if (edit2.Text<>'') AND (edit1.Text<>'') then
begin
ckdcx.ADODataSet1.Active:=false;
ckdcx.ADODataSet1.CommandText:='SELECT ckdata.日期,ckdata.单据编号,ckdata.委托单号,ckdata.物料代码,ckdata.品名,ckdata.加工类型,ckdata.数量,ckdata.金额,ckdata.jgmoney AS 加工费,ckdata.库别,ckdata.厂家,ckdata.状态,fclose as 关闭,ckdata.mon AS 月份,ckdata.备注'
+' FROM ckdata where 物料代码 like ''%'+trim(edit2.Text)+'%'' and 委托单号 like ''%'+trim(edit1.Text)+'%'' and 日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+'# order  by 日期,物料代码';
ckdcx.ADODataSet1.Active:=true;
ckdcx.DBGridEh1.Columns[0].Width:=60;
ckdcx.DBGridEh1.Columns[1].Width:=80;
ckdcx.DBGridEh1.Columns[2].Width:=100;
ckdcx.DBGridEh1.Columns[3].Width:=150;
ckdcx.DBGridEh1.Columns[4].Width:=120;
ckdcx.DBGridEh1.Columns[5].Width:=80;
ckdcx.DBGridEh1.Columns[6].Width:=60;
ckdcx.DBGridEh1.Columns[7].Width:=60;
ckdcx.DBGridEh1.Columns[8].Width:=60;
ckdcx.DBGridEh1.Columns[9].Width:=80;
ckdcx.DBGridEh1.Columns[10].Width:=100;
ckdcx.DBGridEh1.Columns[11].Width:=80;
end;
end;
if rzcheckbox2.Checked then
begin
ckdcx.ADODataSet1.Active:=false;
ckdcx.ADODataSet1.CommandText:='SELECT ckdata.日期,ckdata.单据编号,ckdata.委托单号,ckdata.物料代码,ckdata.品名,ckdata.加工类型,ckdata.数量,ckdata.金额,ckdata.jgmoney AS 加工费,ckdata.库别,ckdata.厂家,ckdata.状态,fclose as 关闭,ckdata.mon AS 月份,ckdata.备注'
+' FROM ckdata where fclose<>''关闭'' order by 日期,物料代码';
ckdcx.ADODataSet1.Active:=true;
ckdcx.DBGridEh1.Columns[0].Width:=60;
ckdcx.DBGridEh1.Columns[1].Width:=80;
ckdcx.DBGridEh1.Columns[2].Width:=100;
ckdcx.DBGridEh1.Columns[3].Width:=150;
ckdcx.DBGridEh1.Columns[4].Width:=120;
ckdcx.DBGridEh1.Columns[5].Width:=80;
ckdcx.DBGridEh1.Columns[6].Width:=60;
ckdcx.DBGridEh1.Columns[7].Width:=60;
ckdcx.DBGridEh1.Columns[8].Width:=60;
ckdcx.DBGridEh1.Columns[9].Width:=80;
ckdcx.DBGridEh1.Columns[10].Width:=100;
ckdcx.DBGridEh1.Columns[11].Width:=80;
end;
CLOSE;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -