ckjm.pas

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

            
                                           

end;
procedure TForm5.BitBtn3Click(Sender: TObject);
begin
adoquery2.Close;
             adoquery2.Active:=false;
             adoquery2.SQL.Clear;
             adoquery2.SQL.Add('select * from 工段库存总表');
             adoquery2.SQL.Add('where 日期 between '+''''+datetostr(DatetimePicker1.Date) +''''+'and '+''''+Datetostr(DatetimePicker2.Date)+'''  and 工段名称='''+denglu.gdlx+'''');
             adoquery2.Active:=true;
             adoquery2.Open;
            //DataSource1.DataSet:=adoquery1;
            // DBGrid1.DataSource:=DataSource1;



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

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

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

procedure TForm5.RadioButton1Click(Sender: TObject);
begin
panel1.Visible:=true;
    panel2.Visible:=true;
    datetimepicker1.Visible:=true;
    datetimepicker2.Visible:=true;
    panel3.Visible:=false;
    edit1.Visible:=false;
    bitbtn1.Enabled:=true;
    bitbtn7.Enabled:=false;
     bitbtn3.Enabled:=true;
      //radiobutton2.Enabled:=false;
end;

procedure TForm5.RadioButton2Click(Sender: TObject);
begin
panel1.Visible:=false;
    panel2.Visible:=false;
    datetimepicker1.Visible:=false;
    datetimepicker2.Visible:=false;
    panel3.Visible:=true;
    edit1.Visible:=true;
    bitbtn1.Enabled:=false;
    bitbtn3.Enabled:=false;
    bitbtn7.Enabled:=true;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
         adoquery1.Close;
                              adoquery1.Active:=false;
                              adoquery1.Connection:=ckjm.Form5.ADOConnection1;
                              adoquery1.SQL.Clear;
                              adoquery1.SQL.Add('select * from 工段出库总表 where 工面名称='''+denglu.gdlx+'''');
                              //adoquery5.SQL.Clear;
                              adoquery1.Active:=true;
                              adoquery1.Open;
        ckjm.Form5.DBGrid2.Columns[0].Width:=20;
        ckjm.Form5.DBGrid2.Columns[1].Width:=70;
        ckjm.Form5.DBGrid2.Columns[2].Width:=100;
        ckjm.Form5.DBGrid2.Columns[3].Width:=120;
        ckjm.Form5.DBGrid2.Columns[4].Width:=60;
        ckjm.Form5.DBGrid2.Columns[5].Width:=60;
        ckjm.Form5.DBGrid2.Columns[6].Width:=60;
        ckjm.Form5.DBGrid2.Columns[7].Width:=117;
        ckjm.Form5.DBGrid2.Columns[8].Width:=30;
        ckjm.Form5.DBGrid2.Columns[9].Width:=30;
        ckjm.Form5.DBGrid2.Columns[10].Width:=30;
        ckjm.Form5.DBGrid2.Columns[11].Width:=30;


end;

procedure TForm5.DBGrid2DblClick(Sender: TObject);
var
qian:real;
geshu:integer;
ysl:real;
 sl:real;
 //rksl:real;
 dj:real;
 zzsl:real;
 ysll:real;
 wzbm:string;
 wzmc:string;
 ggxh:string;
 wzlx:string;
   kc:real;
   fcje:real;
   usid:integer;
begin
if messagedlg('确认删除该记录吗?',mtconfirmation,[mbyes,mbno],0)=mryes  then
       begin
       



               adoquery2.Close;
               adoquery2.Active:=false;
               adoquery2.Connection:=ckjm.Form5.ADOConnection2;
               adoquery2.SQL.Clear;
               adoquery2.SQL.Add('select * from 工段库存总表 where 物资编码='''+wzbm+''' and 规格型号='''+ggxh+''' and 物资名称='''+wzmc+''' and 工段名称='''+denglu.gdlx+'''');

               adoquery2.Active:=true;
               adoquery2.Open;

               ysl:=adoquery2.Fields[5].AsFloat;
                adoquery2.Edit;
               zzsl:=ysl+sl;
               adoquery2.Fields[5].AsFloat:=zzsl;  



               adoquery2.Post;
          adoquery1.Delete;



          adoquery2.Close;
                              adoquery2.Active:=false;
                              adoquery2.Connection:=ckjm.Form5.ADOConnection2;
                              adoquery2.SQL.Clear;
                              adoquery2.SQL.Add('select * from 工段库存总表 where 工段名称='''+denglu.gdlx+'''');
                              adoquery2.Active:=true;
                              adoquery2.Open;
             ckjm.Form5.DBGrid1.Columns[0].Width:=20;
        ckjm.Form5.DBGrid1.Columns[1].Width:=70;
        ckjm.Form5.DBGrid1.Columns[2].Width:=100;
       ckjm.Form5.DBGrid1.Columns[3].Width:=120;
       ckjm.Form5.DBGrid1.Columns[4].Width:=60;
        ckjm.Form5.DBGrid1.Columns[5].Width:=60;
        ckjm.Form5.DBGrid1.Columns[6].Width:=60;
        ckjm.Form5.DBGrid1.Columns[7].Width:=117;
        ckjm.Form5.DBGrid1.Columns[8].Width:=30;
        ckjm.Form5.DBGrid1.Columns[9].Width:=30;
        ckjm.Form5.DBGrid1.Columns[10].Width:=30;
        ckjm.Form5.DBGrid1.Columns[11].Width:=30;
       
end;
     end;
procedure TForm5.Label1Click(Sender: TObject);
begin
sblx.Form9.show;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
     dbgrid2.Enabled:=false;
     bitbtn3.Enabled:=false;
      radiobutton2.Enabled:=true;
      datetimepicker1.DateTime:=now()-10;
      datetimepicker2.DateTime:=now()+1;
end;

procedure TForm5.Edit2Change(Sender: TObject);
begin
dbgrid2.Enabled:=true;
end;

procedure TForm5.Label3Click(Sender: TObject);
begin
combobox1.Clear;
xxwh.Form8.adoquery3.Close;
        xxwh.Form8.adoquery3.Active:=false;
        xxwh.Form8.adoquery3.Connection:=xxwh.Form8.ADOConnection3;
        xxwh.Form8.adoquery3.SQL.Clear;
        xxwh.Form8.adoquery3.SQL.Add('select * from 工段发料名单 where 工段名称='''+denglu.gdlx+'''');
        xxwh.Form8.adoquery3.Active:=true;
        xxwh.Form8.adoquery3.Open;
           while  not xxwh.Form8.adoquery3.Eof do
             begin
               ckjm.Form5.ComboBox1.Items.Add(xxwh.Form8.adoquery3.FieldByName('人员名单').AsString);
               xxwh.Form8.adoquery3.Next;
             end;
        xxwh.Form8.adoquery3.Close;

end;

procedure TForm5.Label9Click(Sender: TObject);
begin
combobox2.Clear;
 xxwh.Form8.ADOQuery2.Close;
        xxwh.Form8.ComboBox2.Text:='';
        xxwh.Form8.adoquery2.Close;
        xxwh.Form8.adoquery2.Active:=false;
        xxwh.Form8.adoquery2.Connection:=xxwh.Form8.ADOConnection2;
        xxwh.Form8.adoquery2.SQL.Clear;
        xxwh.Form8.adoquery2.SQL.Add('select * from 工段领料名单 where 工段名称='''+denglu.gdlx+'''');
        xxwh.Form8.adoquery2.Active:=true;
        xxwh.Form8.adoquery2.Open;
           while  not xxwh.Form8.adoquery2.Eof do
             begin
               ckjm.Form5.ComboBox2.Items.Add(xxwh.Form8.adoquery2.FieldByName('人员姓名').AsString);
               xxwh.Form8.adoquery2.Next;
             end;
        xxwh.Form8.adoquery2.Close;
end;

end.