unit9.~pas

中鼎百货进销存系统

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, DB, ADODB;

type
  TForm9 = class(TForm)
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Edit1: TEdit;
    DataSource1: TDataSource;
    ADO_Cancel_Query: TADOQuery;
    ADO_Cancel_Conn: TADOConnection;
    ADOQuery1: TADOQuery;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    function  ConnectDataBase():boolean;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}
function TForm9.ConnectDataBase():boolean;
var
 Constr:string;
begin
ADO_Cancel_Conn.Close;
 try
  Constr:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=admin;';
  Constr:=Constr+'Data Source='+ExtractFilePath(Application.ExeName)+'database\ZD.mdb;Mode=ReadWrite';
 ADO_Cancel_Conn.ConnectionString := Constr;
 ADO_Cancel_Conn.Connected:=true;
 result:=true;
 except
 result:=false;
 application.MessageBox('连接数据库失败','提示',1);
 end;
end;
procedure TForm9.FormCreate(Sender: TObject);
var
sql,s_cus_no:string;
begin
 ConnectDataBase;

 DateTimePicker1.Date:=now-30;
 DateTimePicker2.Date:=now;
 DateTimePicker1.DateFormat:=dfshort;
 DateTimePicker2.DateFormat:=dfshort;

   combobox1.Clear;
   sql:='Select Cus_NO from custom';
   ADO_Cancel_Query.Close;
   ADO_Cancel_Query.SQL.Clear;
   ADO_Cancel_Query.SQL.Add(sql);
   ADO_Cancel_Query.Open;
   While not ADO_Cancel_Query.Eof do
   begin
     s_cus_no:=ADO_Cancel_Query.FieldByName('Cus_no').AsString;
     combobox1.Items.Add(s_cus_no);
     ADO_Cancel_Query.Next;
   end;

end;

procedure TForm9.ComboBox1Click(Sender: TObject);
var
sql,sql1,sql2,s_cus_name:string;
begin
   sql:='Select Cus_NO,Cus_Name from Custom where cus_no ='''+Combobox1.text+'''';
   ADO_Cancel_Query.Close;
   ADO_Cancel_Query.SQL.Clear;
   ADO_Cancel_Query.SQL.Add(sql);
   ADO_Cancel_Query.Open;
   edit1.Text:= ADO_Cancel_Query.FieldByName('Cus_Name').AsString;
end;

procedure TForm9.Button1Click(Sender: TObject);
var
sql,sql1,sql2,sql3,sql4:string;
startdate,Enddate:TDatetime;
begin
startdate:=DateTimePicker1.Date;
Enddate:=DateTimePicker2.Date;
sql1:='Select Cus_NO as 客户编号,Cus_Name as 客户名称,Quality as 产品品类,Pzsize as 产品名称,Shop_NO as 产品条码,packagenum as 包装规格,cellnum as 数量,price as 进货价,Jiner as 金额,Pzuser as 经手人,';
sql2:='inputdate as 进货日期,Reason as 退货原因,ID as 编号 from CancelCell where Cus_NO='''+Combobox1.Text+''' and inputdate>=:s_date and inputdate<=:e_date';
sql:=sql1+sql2;

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sql);
ADOQuery1.Parameters.ParamByName('s_date').Value:=startdate;
ADOQuery1.Parameters.ParamByName('e_date').Value:=Enddate;
ADOQuery1.Open;
end;

procedure TForm9.Button2Click(Sender: TObject);
begin
close;
end;

end.