📄 mc_chxxtj.pas
字号:
unit MC_CHXXTJ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, ExtCtrls, StdCtrls, Buttons, ComCtrls, Grids, DBGrids;
type
TCHXXTJ = class(TForm)
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
GroupBox2: TGroupBox;
Label1: TLabel;
Label10: TLabel;
Label11: TLabel;
CheckBox1: TCheckBox;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
BitBtn3: TBitBtn;
CheckBox2: TCheckBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
Edit1: TEdit;
Panel1: TPanel;
GroupBox3: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Query1: TQuery;
DataSource1: TDataSource;
Query2: TQuery;
Query1BDEDesigner: TIntegerField;
Query1BDEDesigner2: TStringField;
Query1BDEDesigner3: TDateTimeField;
Query1BDEDesigner4: TIntegerField;
Query1BDEDesigner5: TStringField;
Query1BDEDesigner6: TStringField;
Query1BDEDesigner7: TIntegerField;
Query1BDEDesigner8: TFloatField;
Query1BDEDesigner9: TFloatField;
Query1BDEDesigner10: TStringField;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure ComboBox4Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CHXXTJ: TCHXXTJ;
implementation
{$R *.DFM}
procedure TCHXXTJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ANimateWindow(Handle,300,AW_HIDE+AW_SLIDE+AW_VER_POSITIVE);
CHXXTJ.Release;
CHXXTJ:=nil;
end;
procedure TCHXXTJ.FormShow(Sender: TObject);
begin
ANimateWindow(Handle,300,AW_SLIDE+AW_VER_NEGATIVE);
Query1.Open;
GroupBox1.Refresh;
GroupBox2.Refresh;
GroupBox3.Refresh;
Panel1.Refresh;
DBGrid1.Refresh;
//--------------------
ComboBox1.ItemIndex:=0;
ComboBox2.ItemIndex:=0;
ComboBox3.ItemIndex:=0;
ComboBox4.ItemIndex:=0;
//--------------------
Query2.Open;
Label3.Caption:=Query2.Fields[0].AsString+'种';
Label5.Caption:=IntToStr(Query1.RecordCount);
Label7.Caption:=Query2.FieldS[1].AsString;
Label9.Caption:=Query2.Fields[2].AsString;
end;
procedure TCHXXTJ.BitBtn1Click(Sender: TObject);
begin
if Query1.RecordCount<>0 then
Query1.Delete;
end;
procedure TCHXXTJ.BitBtn3Click(Sender: TObject);
var cc,abc:String;
begin
if Length(Edit1.Text)=0 then
begin
ShowMessage('请输入查询值');
Edit1.SetFocus;
end
else
begin
if ComboBox2.Items[ComboBox2.ItemIndex]='升序' then cc:='ASC' else CC:='DESC';
if Query1.Prepared=False then Query1.Prepare;
if Length(Edit1.Text)<>0 then Abc:=edit1.Text+'*';
//-设置时间----------------------------------------
if Checkbox1.Checked=true then
begin
{if Checkbox2.Checked=True then
begin}
//------------------------------------------------------------------------------------------------------
if ComboBox4.text='Like' then
begin
if Edit1.text='*' then
begin
Query1.Close;
Query1.SQL.Clear;
if cc='ASC' then Query1.SQL.Add('select * From 出货信息历史表 Where 出货日期>:Date1 and 出货日期<:Date2 ORDER BY '+ComboBox1.Items[ComboBox1.ItemIndex]+' ASC')
else Query1.SQL.Add('select * From 出货信息历史表 Where 出货日期>:Date1 and 出货日期<:Date2 ORDER BY '+ComboBox1.Items[ComboBox1.ItemIndex]+' DESC');
Query1.ParamByName('Date1').AsDateTime:=DateTimePicker1.DateTime;
Query1.ParamByName('Date2').AsDateTime:=DateTimePicker2.DateTime;
Query1.Open;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 出货信息历史表');
Query2.SQL.Add('Where 出货日期>:Date1 and 出货日期<:Date2');
Query2.ParamByName('Date1').AsDateTime:=DateTimePicker1.DateTime;
Query2.ParamByName('Date2').AsDateTime:=DateTimePicker2.DateTime;
Query2.Open;
Label3.Caption:=Query2.Fields[0].AsString+'种';
Label5.Caption:=IntToStr(Query1.RecordCount);
Label7.Caption:=Query2.FieldS[1].AsString;
Label9.Caption:=Query2.Fields[2].AsString;
Query2.Close;
end
else
begin
if (ComboBox3.Items[ComboBox3.ItemIndex]='单据编号') or (ComboBox3.Items[ComboBox3.ItemIndex]='商品编号') or (ComboBox3.Items[ComboBox3.ItemIndex]='数量')
then
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 出货信息历史表 where 出货日期>:Date1 and 出货日期>:Date2 and '+ComboBox3.Items[ComboBox3.ItemIndex]+' Like :A');
if cc='ASC' then
begin
Query1.SQL.Add('ORDER BY '+ComboBox3.Items[ComboBox3.ItemIndex]+' ASC');
end
else
begin
Query1.SQL.Add('ORDER BY '+ComboBox3.Items[ComboBox3.ItemIndex]+' DESC');
end;
Query1.ParamByName('A').AsString:=Edit1.Text+'%';
Query1.ParamByName('Date1').AsDateTime:=DateTimePicker1.DateTime;
Query1.ParamByName('Date2').AsDateTime:=DateTimePicker2.DateTime;
Query1.Open;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 出货信息历史表');
Query2.SQL.Add('Where 出货日期>:Date1 and 出货日期<:Date2 and '+ComboBox3.Items[ComboBox3.ItemIndex]+' Like :A');
Query2.Params[2].AsString:=Edit1.Text+'%';
Query2.ParamByName('Date1').AsDateTime:=DateTimePicker1.DateTime;
Query2.ParamByName('Date2').AsDateTime:=DateTimePicker2.DateTime;
Query2.Open;
Label3.Caption:=Query2.Fields[0].AsString+'种';
Label5.Caption:=IntToStr(Query1.RecordCount);
Label7.Caption:=Query2.FieldS[1].AsString;
Label9.Caption:=Query2.Fields[2].AsString;
Query2.Close;
end;//结束判断字段为整形
if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
begin
if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 出货信息历史表 where 出货日期>:Date1 and 出货日期<:Date2 and 经受人 Like :A');
if cc='ASC' then
begin
Query1.SQL.Add('ORDER BY '+ComboBox1.Items[ComboBox1.ItemIndex]+' ASC');
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -