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

📄 rkdcx_find1.pas

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

interface

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

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

var
  rkdcx_find: Trkdcx_find;

implementation

uses rkdg1, adodm;

{$R *.dfm}

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

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

procedure Trkdcx_find.RzBitBtn1Click(Sender: TObject);
begin
if rzcheckbox1.Checked then
begin
rkdcx.ADODataSet1.Connection:=dm.ADOConnection1;
rkdcx.ADODataSet1.Active:=false;
rkdcx.ADODataSet1.CommandText:='select 日期,单据编号,委托单号,物料代码,品名,加工类型,数量,单价,金额,库别,完工日期,厂家,状态,fclose as 关闭,备注 from rkdata order by 日期';
rkdcx.ADODataSet1.Active:=true;
rkdcx.DBGridEh1.Columns[0].Width:=60;
rkdcx.DBGridEh1.Columns[1].Width:=120;
rkdcx.DBGridEh1.Columns[2].Width:=150;
rkdcx.DBGridEh1.Columns[3].Width:=150;
rkdcx.DBGridEh1.Columns[4].Width:=120;
rkdcx.DBGridEh1.Columns[5].Width:=80;
rkdcx.DBGridEh1.Columns[6].Width:=60;
rkdcx.DBGridEh1.Columns[7].Width:=60;
rkdcx.DBGridEh1.Columns[8].Width:=60;
rkdcx.DBGridEh1.Columns[9].Width:=80;
rkdcx.DBGridEh1.Columns[10].Width:=60;
rkdcx.DBGridEh1.Columns[11].Width:=150;
rkdcx.DBGridEh1.Columns[12].Width:=50;
rkdcx.DBGridEh1.Columns[13].Width:=50;
rkdcx.DBGridEh1.Columns[14].Width:=80;
if edit1.Text<>'' then
begin
rkdcx.ADODataSet1.Connection:=dm.ADOConnection1;
rkdcx.ADODataSet1.Active:=false;
rkdcx.ADODataSet1.CommandText:='select 日期,单据编号,委托单号,物料代码,品名,加工类型,数量,单价,金额,库别,完工日期,厂家,状态,fclose as 关闭,备注 from rkdata where  委托单号 like ''%'+trim(edit1.Text)+'%'' order by 日期';
rkdcx.ADODataSet1.Active:=true;
rkdcx.DBGridEh1.Columns[0].Width:=60;
rkdcx.DBGridEh1.Columns[1].Width:=120;
rkdcx.DBGridEh1.Columns[2].Width:=150;
rkdcx.DBGridEh1.Columns[3].Width:=150;
rkdcx.DBGridEh1.Columns[4].Width:=120;
rkdcx.DBGridEh1.Columns[5].Width:=80;
rkdcx.DBGridEh1.Columns[6].Width:=60;
rkdcx.DBGridEh1.Columns[7].Width:=60;
rkdcx.DBGridEh1.Columns[8].Width:=60;
rkdcx.DBGridEh1.Columns[9].Width:=80;
rkdcx.DBGridEh1.Columns[10].Width:=60;
rkdcx.DBGridEh1.Columns[11].Width:=150;
rkdcx.DBGridEh1.Columns[12].Width:=50;
rkdcx.DBGridEh1.Columns[13].Width:=50;
rkdcx.DBGridEh1.Columns[14].Width:=80;
end;
if edit2.Text<>'' then
begin
rkdcx.ADODataSet1.Connection:=dm.ADOConnection1;
rkdcx.ADODataSet1.Active:=false;
rkdcx.ADODataSet1.CommandText:='select 日期,单据编号,委托单号,物料代码,品名,加工类型,数量,单价,金额,库别,完工日期,厂家,状态,fclose as 关闭,备注 from rkdata where  物料代码 like ''%'+trim(edit2.Text)+'%'' order by 日期';
rkdcx.ADODataSet1.Active:=true;
rkdcx.DBGridEh1.Columns[0].Width:=60;
rkdcx.DBGridEh1.Columns[1].Width:=120;
rkdcx.DBGridEh1.Columns[2].Width:=150;
rkdcx.DBGridEh1.Columns[3].Width:=150;
rkdcx.DBGridEh1.Columns[4].Width:=120;
rkdcx.DBGridEh1.Columns[5].Width:=80;
rkdcx.DBGridEh1.Columns[6].Width:=60;
rkdcx.DBGridEh1.Columns[7].Width:=60;
rkdcx.DBGridEh1.Columns[8].Width:=60;
rkdcx.DBGridEh1.Columns[9].Width:=80;
rkdcx.DBGridEh1.Columns[10].Width:=60;
rkdcx.DBGridEh1.Columns[11].Width:=150;
rkdcx.DBGridEh1.Columns[12].Width:=50;
rkdcx.DBGridEh1.Columns[13].Width:=50;
rkdcx.DBGridEh1.Columns[14].Width:=80;
end;
if (edit1.Text<>'') and (edit2.Text<>'') then
begin
rkdcx.ADODataSet1.Connection:=dm.ADOConnection1;
rkdcx.ADODataSet1.Active:=false;
rkdcx.ADODataSet1.CommandText:='select 日期,单据编号,委托单号,物料代码,品名,加工类型,数量,单价,金额,库别,完工日期,厂家,状态,fclose as 关闭,备注 from rkdata where  委托单号 like ''%'+trim(edit1.Text)+'%'' and 物料代码 like ''%'+trim(edit2.Text)+'%'' order by 日期';
rkdcx.ADODataSet1.Active:=true;
rkdcx.DBGridEh1.Columns[0].Width:=60;
rkdcx.DBGridEh1.Columns[1].Width:=120;
rkdcx.DBGridEh1.Columns[2].Width:=150;
rkdcx.DBGridEh1.Columns[3].Width:=150;
rkdcx.DBGridEh1.Columns[4].Width:=120;
rkdcx.DBGridEh1.Columns[5].Width:=80;
rkdcx.DBGridEh1.Columns[6].Width:=60;
rkdcx.DBGridEh1.Columns[7].Width:=60;
rkdcx.DBGridEh1.Columns[8].Width:=60;
rkdcx.DBGridEh1.Columns[9].Width:=80;
rkdcx.DBGridEh1.Columns[10].Width:=60;
rkdcx.DBGridEh1.Columns[11].Width:=150;
rkdcx.DBGridEh1.Columns[12].Width:=50;
rkdcx.DBGridEh1.Columns[13].Width:=50;
rkdcx.DBGridEh1.Columns[14].Width:=80;
end;
end
else
begin
rkdcx.ADODataSet1.Connection:=dm.ADOConnection1;
rkdcx.ADODataSet1.Active:=false;
rkdcx.ADODataSet1.CommandText:='select 日期,单据编号,委托单号,物料代码,品名,加工类型,数量,单价,金额,库别,完工日期,厂家,状态,fclose as 关闭,备注 from rkdata where 日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+'# order by 日期';
rkdcx.ADODataSet1.Active:=true;
rkdcx.DBGridEh1.Columns[0].Width:=60;
rkdcx.DBGridEh1.Columns[1].Width:=120;
rkdcx.DBGridEh1.Columns[2].Width:=150;
rkdcx.DBGridEh1.Columns[3].Width:=150;
rkdcx.DBGridEh1.Columns[4].Width:=120;
rkdcx.DBGridEh1.Columns[5].Width:=80;
rkdcx.DBGridEh1.Columns[6].Width:=60;
rkdcx.DBGridEh1.Columns[7].Width:=60;
rkdcx.DBGridEh1.Columns[8].Width:=60;
rkdcx.DBGridEh1.Columns[9].Width:=80;
rkdcx.DBGridEh1.Columns[10].Width:=60;
rkdcx.DBGridEh1.Columns[11].Width:=150;
rkdcx.DBGridEh1.Columns[12].Width:=50;
rkdcx.DBGridEh1.Columns[13].Width:=50;
rkdcx.DBGridEh1.Columns[14].Width:=80;
if edit1.Text<>'' then
begin
rkdcx.ADODataSet1.Connection:=dm.ADOConnection1;
rkdcx.ADODataSet1.Active:=false;
rkdcx.ADODataSet1.CommandText:='select 日期,单据编号,委托单号,物料代码,品名,加工类型,数量,单价,金额,库别,完工日期,厂家,状态,fclose as 关闭,备注 from rkdata where  委托单号 like ''%'+trim(edit1.Text)+'%'' and 日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+'# order by 日期';
rkdcx.ADODataSet1.Active:=true;
rkdcx.DBGridEh1.Columns[0].Width:=60;
rkdcx.DBGridEh1.Columns[1].Width:=120;
rkdcx.DBGridEh1.Columns[2].Width:=150;
rkdcx.DBGridEh1.Columns[3].Width:=150;
rkdcx.DBGridEh1.Columns[4].Width:=120;
rkdcx.DBGridEh1.Columns[5].Width:=80;
rkdcx.DBGridEh1.Columns[6].Width:=60;
rkdcx.DBGridEh1.Columns[7].Width:=60;
rkdcx.DBGridEh1.Columns[8].Width:=60;
rkdcx.DBGridEh1.Columns[9].Width:=80;
rkdcx.DBGridEh1.Columns[10].Width:=60;
rkdcx.DBGridEh1.Columns[11].Width:=150;
rkdcx.DBGridEh1.Columns[12].Width:=50;
rkdcx.DBGridEh1.Columns[13].Width:=50;
rkdcx.DBGridEh1.Columns[14].Width:=80;
end;
if edit2.Text<>'' then
begin
rkdcx.ADODataSet1.Connection:=dm.ADOConnection1;
rkdcx.ADODataSet1.Active:=false;
rkdcx.ADODataSet1.CommandText:='select 日期,单据编号,委托单号,物料代码,品名,加工类型,数量,单价,金额,库别,完工日期,厂家,状态,fclose as 关闭,备注 from rkdata where  物料代码 like ''%'+trim(edit2.Text)+'%'' and 日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+'#  order by 日期';
rkdcx.ADODataSet1.Active:=true;
rkdcx.DBGridEh1.Columns[0].Width:=60;
rkdcx.DBGridEh1.Columns[1].Width:=120;
rkdcx.DBGridEh1.Columns[2].Width:=150;
rkdcx.DBGridEh1.Columns[3].Width:=150;
rkdcx.DBGridEh1.Columns[4].Width:=120;
rkdcx.DBGridEh1.Columns[5].Width:=80;
rkdcx.DBGridEh1.Columns[6].Width:=60;
rkdcx.DBGridEh1.Columns[7].Width:=60;
rkdcx.DBGridEh1.Columns[8].Width:=60;
rkdcx.DBGridEh1.Columns[9].Width:=80;
rkdcx.DBGridEh1.Columns[10].Width:=60;
rkdcx.DBGridEh1.Columns[11].Width:=150;
rkdcx.DBGridEh1.Columns[12].Width:=50;
rkdcx.DBGridEh1.Columns[13].Width:=50;
rkdcx.DBGridEh1.Columns[14].Width:=80;
end;
if (edit1.Text<>'') and (edit2.Text<>'') then
begin
rkdcx.ADODataSet1.Connection:=dm.ADOConnection1;
rkdcx.ADODataSet1.Active:=false;
rkdcx.ADODataSet1.CommandText:='select 日期,单据编号,委托单号,物料代码,品名,加工类型,数量,单价,金额,库别,完工日期,厂家,状态,fclose as 关闭,备注 from rkdata where  委托单号 like ''%'+trim(edit1.Text)+'%'' and 物料代码 like ''%'+trim(edit2.Text)+'%'' and 日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+'# order by 日期';
rkdcx.ADODataSet1.Active:=true;
rkdcx.DBGridEh1.Columns[0].Width:=60;
rkdcx.DBGridEh1.Columns[1].Width:=120;
rkdcx.DBGridEh1.Columns[2].Width:=150;
rkdcx.DBGridEh1.Columns[3].Width:=150;
rkdcx.DBGridEh1.Columns[4].Width:=120;
rkdcx.DBGridEh1.Columns[5].Width:=80;
rkdcx.DBGridEh1.Columns[6].Width:=60;
rkdcx.DBGridEh1.Columns[7].Width:=60;
rkdcx.DBGridEh1.Columns[8].Width:=60;
rkdcx.DBGridEh1.Columns[9].Width:=80;
rkdcx.DBGridEh1.Columns[10].Width:=60;
rkdcx.DBGridEh1.Columns[11].Width:=150;
rkdcx.DBGridEh1.Columns[12].Width:=50;
rkdcx.DBGridEh1.Columns[13].Width:=50;
rkdcx.DBGridEh1.Columns[14].Width:=80;
end;
end;
CLOSE;
end;

end.

⌨️ 快捷键说明

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