wzcx.~pas

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

    Sheet.Cells[3,7]:='摘要';
    Sheet.Cells[3,8]:='库';
    Sheet.Cells[3,9]:='层';
    Sheet.Cells[3,10]:='架';
    Sheet.Cells[3,11]:='位';
    //Sheet.Cells[3,9]:='';
    //Sheet.Cells[3,10]:='摘要';
    //Sheet.Cells[3,11]:='收货单位';
    Sheet.Cells[3,12]:='工段名称';
    //Sheet.Cells[3,13]:='账本号';

      if edit1.Enabled=true then
  begin
    i:=3;
    adoquery1.Close;
    adoquery1.Active:=false;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from 工段入库总表');
    adoquery1.SQL.Add('where 规格型号 like '''+edit1.Text+'''+''%'' and 工段名称='''+denglu.gdlx+''' order by 物资名称');
    adoquery1.Active:=true;
    adoquery1.Open;
    with adoquery1 do
    begin
        First;
      while not eof do
        begin
            for j:=2 to Fields.Count do
            begin
                Sheet.Cells[1+i,j-1]:=Fields[j-1].DisplayText;
            end;
            Next;
            i:=i+1;
        end;
    end;
    end;
    if edit1.Enabled =false then
    begin

      i:=3;
    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.Open;
    with adoquery1 do
    begin
        First;
      while not eof do
        begin
            for j:=2 to Fields.Count do
            begin
                Sheet.Cells[1+i,j-1]:=Fields[j-1].DisplayText;
            end;
            Next;
            i:=i+1;
        end;
    end;
    end;
end;

procedure TForm10.Label6Click(Sender: TObject);
begin
      edit1.Enabled:=true;
       datetimepicker1.Enabled:=false;
        datetimepicker2.Enabled:=false;


end;

procedure TForm10.Label4Click(Sender: TObject);
begin
 edit2.Enabled:=true;
       datetimepicker3.Enabled:=false;
        datetimepicker4.Enabled:=false;


end;

procedure TForm10.Label15Click(Sender: TObject);
begin
 edit4.Enabled:=true;
       datetimepicker7.Enabled:=false;
        datetimepicker8.Enabled:=false;


end;

procedure TForm10.BitBtn6Click(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]:='日期';
    Sheet.Cells[3,7]:='摘要';
    Sheet.Cells[3,8]:='库';
    Sheet.Cells[3,9]:='层';
    Sheet.Cells[3,10]:='架';
    Sheet.Cells[3,11]:='位';
    //Sheet.Cells[3,9]:='';
    //Sheet.Cells[3,10]:='摘要';
    //Sheet.Cells[3,11]:='收货单位';
    Sheet.Cells[3,12]:='工段名称';
    //Sheet.Cells[3,13]:='账本号';

      if edit2.Enabled=true then
  begin
    i:=3;
    adoquery2.Close;
    adoquery2.Active:=false;
    adoquery2.SQL.Clear;
    adoquery2.SQL.Add('select * from 工段库存总表');
    adoquery2.SQL.Add('where 规格型号 like '''+edit2.Text+'''+''%'' and 工段名称='''+denglu.gdlx+''' order by 物资名称');
    adoquery2.Active:=true;
    adoquery2.Open;
    with adoquery2 do
    begin
        First;
      while not eof do
        begin
            for j:=2 to Fields.Count do
            begin
                Sheet.Cells[1+i,j-1]:=Fields[j-1].DisplayText;
            end;
            Next;
            i:=i+1;
        end;
    end;
    end;
    if edit2.Enabled =false then
    begin

      i:=3;
    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;
    adoquery2.Open;
    with adoquery2 do
    begin
        First;
      while not eof do
        begin
            for j:=2 to Fields.Count do
            begin
                Sheet.Cells[1+i,j-1]:=Fields[j-1].DisplayText;
            end;
            Next;
            i:=i+1;
        end;
    end;
    end;

end;

procedure TForm10.BitBtn12Click(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]:='摘要';
    Sheet.Cells[3,7]:='日期';
    Sheet.Cells[3,8]:='用于设备';
    Sheet.Cells[3,9]:='设备部位';
    Sheet.Cells[3,10]:='领料人';
    Sheet.Cells[3,11]:='发料人';
    //Sheet.Cells[3,9]:='';
    //Sheet.Cells[3,10]:='摘要';
    //Sheet.Cells[3,11]:='收货单位';
    Sheet.Cells[3,12]:='工段名称';
    //Sheet.Cells[3,13]:='账本号';

      if edit4.Enabled=true then
  begin
    i:=3;
    adoquery3.Close;
    adoquery3.Active:=false;
    adoquery3.SQL.Clear;
    adoquery3.SQL.Add('select * from 工段出库总表');
    adoquery3.SQL.Add('where 规格型号 like '''+edit4.Text+'''+''%'' and 工段名称='''+denglu.gdlx+''' order by 物资名称');
    adoquery3.Active:=true;
    adoquery3.Open;
    with adoquery3 do
    begin
        First;
      while not eof do
        begin
            for j:=2 to Fields.Count do
            begin
                Sheet.Cells[1+i,j-1]:=Fields[j-1].DisplayText;
            end;
            Next;
            i:=i+1;
        end;
    end;
    end;
    if edit4.Enabled =false then
    begin

      i:=3;
    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;
    adoquery3.Open;
    with adoquery3 do
    begin
        First;
      while not eof do
        begin
            for j:=2 to Fields.Count do
            begin
                Sheet.Cells[1+i,j-1]:=Fields[j-1].DisplayText;
            end;
            Next;
            i:=i+1;
        end;
    end;
    end;

end;

procedure TForm10.Label1Click(Sender: TObject);
begin
edit1.Enabled:=false;
       datetimepicker1.Enabled:=true;
        datetimepicker2.Enabled:=true;
end;

procedure TForm10.Label3Click(Sender: TObject);
begin

 edit2.Enabled:=false;
       datetimepicker3.Enabled:=true;
        datetimepicker4.Enabled:=true;
end;

procedure TForm10.Label13Click(Sender: TObject);
begin

 edit4.Enabled:=false;
       datetimepicker7.Enabled:=true;
        datetimepicker8.Enabled:=true;
end;

end.