wzcx.~pas

库房管理程序,希望能给大家一点启发.这个小程序现在已经用在我们这里的工段,反应良好.

unit wzcx;

interface

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

type
  TForm10 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    ADOConnection2: TADOConnection;
    ADOConnection3: TADOConnection;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    TabSheet3: TTabSheet;
    Label4: TLabel;
    Edit2: TEdit;
    BitBtn6: TBitBtn;
    DBGrid3: TDBGrid;
    TabSheet7: TTabSheet;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label20: TLabel;
    DateTimePicker7: TDateTimePicker;
    DateTimePicker8: TDateTimePicker;
    Edit4: TEdit;
    BitBtn12: TBitBtn;
    DBGrid6: TDBGrid;
    Label3: TLabel;
    DateTimePicker3: TDateTimePicker;
    Label5: TLabel;
    DateTimePicker4: TDateTimePicker;
    Button1: TButton;
    Label6: TLabel;
    Edit1: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Label20Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label15Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}
 uses denglu;
procedure TForm10.BitBtn1Click(Sender: TObject);
begin
adoquery1.Close;
            adoquery1.Active:=false;
            adoquery1.SQL.Clear;
            adoquery1.SQL.Add('select * from 工段入库总表');
            adoquery1.SQL.Add('where 日期 between '+''''+datetostr(DatetimePicker1.Date) +''''+'and '+''''+Datetostr(DatetimePicker2.Date)+''' and 工段名称='''+denglu.gdlx+'''');
            adoquery1.Active:=true;
            //adoquery1.Refresh;
            //adoquery1.Post;
            adoquery1.Open;


        wzcx.Form10.DBGrid1.Columns[0].Width:=20;
        wzcx.Form10.DBGrid1.Columns[1].Width:=70;
        wzcx.Form10.DBGrid1.Columns[2].Width:=100;
       wzcx.Form10.DBGrid1.Columns[3].Width:=120;
       wzcx.Form10.DBGrid1.Columns[4].Width:=60;
        wzcx.Form10.DBGrid1.Columns[5].Width:=60;
        wzcx.Form10.DBGrid1.Columns[6].Width:=60;
        wzcx.Form10.DBGrid1.Columns[7].Width:=117;
        wzcx.Form10.DBGrid1.Columns[8].Width:=30;
        wzcx.Form10.DBGrid1.Columns[9].Width:=30;
        wzcx.Form10.DBGrid1.Columns[10].Width:=30;
        wzcx.Form10.DBGrid1.Columns[11].Width:=30;
        wzcx.Form10.DBGrid1.Columns[12].Width:=30;

end;

procedure TForm10.FormCreate(Sender: TObject);
begin
     edit1.Enabled:=false;
     edit2.Enabled:=false;
     edit4.Enabled:=false;
datetimepicker1.Date:=now()-10;

datetimepicker2.Date:=now();

datetimepicker3.Date:=now()-10;

datetimepicker4.Date:=now();

datetimepicker7.Date:=now()-10;

datetimepicker8.Date:=now();
denglu.Form1.ADOQuery1.Close;
        denglu.Form1.ADOQuery1.Active:=false;
       denglu.Form1.ADOQuery1.Connection:=denglu.Form1.ADOConnection1;
       denglu.Form1.ADOQuery1.SQL.Clear;
       denglu.Form1.ADOQuery1.SQL.Add('select * from 工段库房版本');
      denglu.Form1.ADOQuery1.Active:=true;
      denglu.Form1.ADOQuery1.Open;
       denglu.Form1.Label7.Caption:=denglu.Form1.ADOQuery1.FieldByName('原版本号').AsString;



end;

procedure TForm10.Edit2Change(Sender: TObject);
begin

adoquery2.Close;
            adoquery2.Active:=false;
            adoquery2.SQL.Clear;
            adoquery2.SQL.Add('select * from 工段库存总表');
            adoquery2.SQL.Add('where 规格型号 like ''%''+'''+edit2.Text+'''+''%'' and 工段名称='''+denglu.gdlx+'''');
            adoquery2.Active:=true;
            //adoquery1.Refresh;
            //adoquery1.Post;
            adoquery2.Open;


        wzcx.Form10.DBGrid3.Columns[0].Width:=20;
        wzcx.Form10.DBGrid3.Columns[1].Width:=70;
        wzcx.Form10.DBGrid3.Columns[2].Width:=100;
        wzcx.Form10.DBGrid3.Columns[3].Width:=120;
        wzcx.Form10.DBGrid3.Columns[4].Width:=60;
        wzcx.Form10.DBGrid3.Columns[5].Width:=60;
        wzcx.Form10.DBGrid3.Columns[6].Width:=60;
        wzcx.Form10.DBGrid3.Columns[7].Width:=117;
        wzcx.Form10.DBGrid3.Columns[8].Width:=30;
        wzcx.Form10.DBGrid3.Columns[9].Width:=30;
        wzcx.Form10.DBGrid3.Columns[10].Width:=30;
        wzcx.Form10.DBGrid3.Columns[11].Width:=30;
        wzcx.Form10.DBGrid3.Columns[12].Width:=30;
 end;
procedure TForm10.Label20Click(Sender: TObject);
begin
adoquery3.Close;
            adoquery3.Active:=false;
            adoquery3.SQL.Clear;
            adoquery3.SQL.Add('select * from 工段出库总表');
            adoquery3.SQL.Add('where 日期 between '+''''+datetostr(DatetimePicker7.Date) +''''+'and '+''''+Datetostr(DatetimePicker8.Date)+''' and 工段名称='''+denglu.gdlx+'''');
            adoquery3.Active:=true;
            //adoquery1.Refresh;
            //adoquery1.Post;
            adoquery3.Open;


        wzcx.Form10.DBGrid6.Columns[0].Width:=20;
        wzcx.Form10.DBGrid6.Columns[1].Width:=70;
        wzcx.Form10.DBGrid6.Columns[2].Width:=100;
       wzcx.Form10.DBGrid6.Columns[3].Width:=120;
       wzcx.Form10.DBGrid6.Columns[4].Width:=60;
        wzcx.Form10.DBGrid6.Columns[5].Width:=60;
        wzcx.Form10.DBGrid6.Columns[6].Width:=60;
        wzcx.Form10.DBGrid6.Columns[7].Width:=117;
        wzcx.Form10.DBGrid6.Columns[8].Width:=30;
        wzcx.Form10.DBGrid6.Columns[9].Width:=30;
        wzcx.Form10.DBGrid6.Columns[10].Width:=30;
        wzcx.Form10.DBGrid6.Columns[11].Width:=30;
        wzcx.Form10.DBGrid6.Columns[12].Width:=30;
        
       // wzcx.Form10.DBGrid6.Columns[13].Width:=30;
end;

procedure TForm10.Edit1Change(Sender: TObject);
begin

adoquery1.Close;
            adoquery1.Active:=false;
            adoquery1.SQL.Clear;
            adoquery1.SQL.Add('select * from 工段库存总表');
            adoquery1.SQL.Add('where 规格型号 like ''%''+'''+edit1.Text+'''+''%'' and 工段名称='''+denglu.gdlx+'''');
            adoquery1.Active:=true;
            //adoquery1.Refresh;
            //adoquery1.Post;
            adoquery1.Open;


        wzcx.Form10.DBGrid1.Columns[0].Width:=20;
        wzcx.Form10.DBGrid1.Columns[1].Width:=70;
        wzcx.Form10.DBGrid1.Columns[2].Width:=100;
        wzcx.Form10.DBGrid1.Columns[3].Width:=120;
        wzcx.Form10.DBGrid1.Columns[4].Width:=60;
        wzcx.Form10.DBGrid1.Columns[5].Width:=60;
        wzcx.Form10.DBGrid1.Columns[6].Width:=60;
        wzcx.Form10.DBGrid1.Columns[7].Width:=117;
        wzcx.Form10.DBGrid1.Columns[8].Width:=30;
        wzcx.Form10.DBGrid1.Columns[9].Width:=30;
        wzcx.Form10.DBGrid1.Columns[10].Width:=30;
        wzcx.Form10.DBGrid1.Columns[11].Width:=30;
        wzcx.Form10.DBGrid1.Columns[12].Width:=30;
end;

procedure TForm10.Edit4Change(Sender: TObject);
begin

adoquery3.Close;
            adoquery3.Active:=false;
            adoquery3.SQL.Clear;
            adoquery3.SQL.Add('select * from 工段出库总表');
            adoquery3.SQL.Add('where 规格型号 like ''%''+'''+edit2.Text+'''+''%'' and 工段名称='''+denglu.gdlx+'''');
            adoquery3.Active:=true;
            //adoquery1.Refresh;
            //adoquery1.Post;
            adoquery3.Open;


        wzcx.Form10.DBGrid6.Columns[0].Width:=20;
        wzcx.Form10.DBGrid6.Columns[1].Width:=70;
        wzcx.Form10.DBGrid6.Columns[2].Width:=100;
        wzcx.Form10.DBGrid6.Columns[3].Width:=120;
        wzcx.Form10.DBGrid6.Columns[4].Width:=60;
        wzcx.Form10.DBGrid6.Columns[5].Width:=60;
        wzcx.Form10.DBGrid6.Columns[6].Width:=60;
        wzcx.Form10.DBGrid6.Columns[7].Width:=117;
        wzcx.Form10.DBGrid6.Columns[8].Width:=30;
        wzcx.Form10.DBGrid6.Columns[9].Width:=30;
        wzcx.Form10.DBGrid6.Columns[10].Width:=30;
        wzcx.Form10.DBGrid6.Columns[11].Width:=30;
        wzcx.Form10.DBGrid6.Columns[12].Width:=30;
end;

procedure TForm10.Button1Click(Sender: TObject);
begin

adoquery2.Close;
            adoquery2.Active:=false;
            adoquery2.SQL.Clear;
            adoquery2.SQL.Add('select * from 工段库存总表');
            adoquery2.SQL.Add('where 日期 between '+''''+datetostr(DatetimePicker3.Date) +''''+'and '+''''+Datetostr(DatetimePicker4.Date)+''' and 工段名称='''+denglu.gdlx+'''');
            adoquery2.Active:=true;
            //adoquery1.Refresh;
            //adoquery1.Post;
            adoquery2.Open;


        wzcx.Form10.DBGrid3.Columns[0].Width:=20;
        wzcx.Form10.DBGrid3.Columns[1].Width:=70;
        wzcx.Form10.DBGrid3.Columns[2].Width:=100;
       wzcx.Form10.DBGrid3.Columns[3].Width:=120;
       wzcx.Form10.DBGrid3.Columns[4].Width:=60;
        wzcx.Form10.DBGrid3.Columns[5].Width:=60;
        wzcx.Form10.DBGrid3.Columns[6].Width:=60;
        wzcx.Form10.DBGrid3.Columns[7].Width:=117;
        wzcx.Form10.DBGrid3.Columns[8].Width:=30;
        wzcx.Form10.DBGrid3.Columns[9].Width:=30;
        wzcx.Form10.DBGrid3.Columns[10].Width:=30;
        wzcx.Form10.DBGrid3.Columns[11].Width:=30;
        wzcx.Form10.DBGrid3.Columns[12].Width:=30;
end;

procedure TForm10.BitBtn2Click(Sender: TObject);

var
    //定义行列
    i,j:integer;
    //可变类型
    XlApp,Sheet:variant;
    //定义年月
    year,month:string;


 begin
    // year:=copy(datetostr(datetimepicker1.Date),1,4);
    // month:=copy(datetostr(datetimepicker1.Date),6,2);

     //建立Excel报表
    try
            XlApp:=CreateOleObject('Excel.application');

    except
      Application.MessageBox('Excel没有正确安装','提示信息',MB_OK);
      application.Terminate;
    end;
    XlApp.visible:=true;
    //打开
     XLApp.Workbooks.Open(ExtractFilePath(Application.EXEName)+'工段入库查询表.xls');
     Sheet:=XlApp.WorkBooks[1].Sheets[1];
     Sheet.Range[Sheet.Cells[1,1],Sheet.Cells[2,11]].Merge;
     Sheet.Cells[1,1]:='工段物资入库表';


     Sheet.Cells[1,1].Font.Name := '宋体';
     Sheet.Cells[1,1].Font.Size := 24;

   
    Sheet.Cells[3,1]:='物资编码';
    Sheet.Cells[3,2]:='物资名称';
    Sheet.Cells[3,3]:='规格型号';
    Sheet.Cells[3,4]:='计录单位';
    Sheet.Cells[3,5]:='入库量';
    Sheet.Cells[3,6]:='日期';