rkcx.~pas

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

unit rkcx;

interface

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

type
  TForm4 = class(TForm)
    Label4: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    DateTimePicker1: TDateTimePicker;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit13: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit18: TEdit;
    ADOConnection2: TADOConnection;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    DBGrid2: TDBGrid;
    ComboBox1: TComboBox;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ADOConnection3: TADOConnection;
    ADOQuery3: TADOQuery;
    ADOConnection4: TADOConnection;
    ADOQuery4: TADOQuery;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    Button1: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Label10Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label12Click(Sender: TObject);
    procedure Label16Click(Sender: TObject);
    procedure Label19Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}
 uses wzxx,xxwh,denglu;
procedure TForm4.BitBtn1Click(Sender: TObject);

begin


    if edit7.Text<>'' then
    // begin
       if edit8.Text<>'' then
     //     begin
           if edit9.Text<>'' then
         //     begin
              // if combobox1.Text<>'' then
          //      begin
                 if combobox1.Text<>'' then
            //       begin
                   if edit3.Text<>'' then

                   if combobox2.Text<>'' then
                   if combobox3.Text<>'' then



             begin
             rkcx.Form4.ADOQuery2.Close;
               rkcx.Form4.ADOQuery2.Active:=false;
                rkcx.Form4.ADOQuery2.Connection:=rkcx.Form4.ADOConnection2;
                rkcx.Form4.ADOQuery2.SQL.Clear;
                rkcx.Form4.ADOQuery2.SQL.Add('select * from 工段入库总表 where 工段名称='''+denglu.gdlx+''' order by id desc');
                rkcx.Form4.ADOQuery2.Active:=true;
                rkcx.Form4.ADOQuery2.Open;
                rkcx.Form4.ADOQuery2.Insert;

        //物资编码
               rkcx.Form4.ADOQuery2.Fields[1].AsString:=edit7.Text;
        //物资名称
               rkcx.Form4.ADOQuery2.Fields[2].AsString:=edit8.Text;
        //规格型号
               rkcx.Form4.ADOQuery2.Fields[3].AsString:=edit9.Text;
        //记录单位
               rkcx.Form4.ADOQuery2.Fields[4].AsString:=combobox1.Text;
        //发出单价

        //发出数量
               rkcx.Form4.ADOQuery2.Fields[5].AsFloat:=strtofloat(edit3.Text);
        //发出金额

        //日期
               rkcx.Form4.ADOQuery2.Fields[6].AsDateTime:=datetimepicker1.Time;
        //摘要
              rkcx.Form4.ADOQuery2.Fields[7].AsString:=edit6.Text;

         // 库
               rkcx.Form4.ADOQuery2.Fields[8].AsString:=combobox2.Text;
         //架
               rkcx.Form4.ADOQuery2.Fields[9].AsString:=Edit15.Text;
         //层
               rkcx.Form4.ADOQuery2.Fields[10].AsString:=Edit16.Text;
          //位
               rkcx.Form4.ADOQuery2.Fields[11].AsString:=combobox3.Text;

            //位
               rkcx.Form4.ADOQuery2.Fields[12].AsString:=denglu.gdlx;

        //提交



              rkcx.Form4.ADOQuery2.Post;

               showmessage('记录增加成功！');

               edit3.Text:='';
               edit6.Text:='';
               edit7.Text:='';
               edit8.Text:='';
               edit9.Text:='';
               //edit10.Text:='';
               wzxx.Form7.Close;

               combobox2.Text:='';
               edit15.Text:='';
               edit16.Text:='';
               combobox3.Text:='';






             rkcx.Form4.ADOQuery2.Close;
              rkcx.Form4.ADOQuery2.Active:=false;
        rkcx.Form4.ADOQuery2.Connection:=rkcx.Form4.ADOConnection2;
        rkcx.Form4.ADOQuery2.SQL.Clear;
        rkcx.Form4.ADOQuery2.SQL.Add('select * from 工段入库总表 where 工段名称='''+denglu.gdlx+''' order by id desc');
        rkcx.Form4.ADOQuery2.Active:=true;
        rkcx.Form4.ADOQuery2.Open;

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

        else
          begin
              application.MessageBox('工段物资位置未输入，请正确输入','提示信息',MB_OK);
          end
     else
          begin
              application.MessageBox('工段库房库名未输入，请正确输入','提示信息',MB_OK);
          end



        else
          begin
              application.MessageBox('接收数量未输入，请正确输入','提示信息',MB_OK);
          end
        else
            begin
              application.MessageBox('记录单位未输入，请正确输入','提示信息',MB_OK);
            end
        else
            begin
              application.MessageBox('规格型号未输入，请正确输入','提示信息',MB_OK);
            end
        else
            begin
              application.MessageBox('物资名称未输入，请正确输入','提示信息',MB_OK);
            end

        else
            begin
              application.MessageBox('物资编码未输入，请正确输入','提示信息',MB_OK);
            end



end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
rkcx.Form4.Close;
end;

procedure TForm4.Label10Click(Sender: TObject);
begin
       wzxx.Form7.Show;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
        datetimepicker1.Date:=now;
        ComboBox1.Text:='';
        ADOQuery1.Close;
        adoquery1.Active:=false;
       adoquery1.Connection:=rkcx.Form4.ADOConnection1;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('select * from 工段物资单位');
        adoquery1.Active:=true;
        adoquery1.Open;
           while  not adoquery1.Eof do
             begin
               ComboBox1.Items.Add(adoquery1.FieldByName('物资单位').AsString);
               adoquery1.Next;
             end;

        // ADOQuery3.Close;
        //ComboBox2.Text:='';
       
        //xxwh.Form8.adoquery5.Close;
end;

procedure TForm4.Label1Click(Sender: TObject);
begin
     rkcx.Form4.ADOQuery2.Close;
              rkcx.Form4.ADOQuery2.Active:=false;
        rkcx.Form4.ADOQuery2.Connection:=rkcx.Form4.ADOConnection2;
        rkcx.Form4.ADOQuery2.SQL.Clear;
        rkcx.Form4.ADOQuery2.SQL.Add('select * from 工段入库总表 where 工段名称='''+denglu.gdlx+''' order by id desc');
        rkcx.Form4.ADOQuery2.Active:=true;
        rkcx.Form4.ADOQuery2.Open;

         rkcx.Form4.DBGrid2.Columns[0].Width:=20;
        rkcx.Form4.DBGrid2.Columns[1].Width:=70;
        rkcx.Form4.DBGrid2.Columns[2].Width:=100;
        rkcx.Form4.dbgrid2.Columns[3].Width:=120;
        rkcx.Form4.dbgrid2.Columns[4].Width:=60;
        rkcx.Form4.dbgrid2.Columns[5].Width:=60;
        rkcx.Form4.dbgrid2.Columns[6].Width:=60;
        rkcx.Form4.dbgrid2.Columns[7].Width:=117;
        rkcx.Form4.dbgrid2.Columns[8].Width:=30;
        rkcx.Form4.dbgrid2.Columns[9].Width:=30;
        rkcx.Form4.dbgrid2.Columns[10].Width:=30;
        rkcx.Form4.dbgrid2.Columns[11].Width:=30;
       // rkcx.Form4.dbgrid2.Columns[12].Width:=30; 
       // rkcx.Form4.dbgrid2.Columns[12].Width:=52;
end;

procedure TForm4.Label12Click(Sender: TObject);
begin
combobox1.Clear;
 ADOQuery1.Close;
        adoquery1.Active:=false;
       adoquery1.Connection:=rkcx.Form4.ADOConnection1;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('select * from 工段物资单位');
        adoquery1.Active:=true;
        adoquery1.Open;
           while  not adoquery1.Eof do
             begin
               ComboBox1.Items.Add(adoquery1.FieldByName('物资单位').AsString);
               adoquery1.Next;
             end;
end;

procedure TForm4.Label16Click(Sender: TObject);
begin
combobox2.Clear;
 rkcx.Form4.ADOQuery3.Close;
         rkcx.Form4.adoquery3.Active:=false;
         rkcx.Form4.adoquery3.Connection:=rkcx.Form4.ADOConnection3;
         rkcx.Form4.adoquery3.SQL.Clear;
         rkcx.Form4.adoquery3.SQL.Add('select * from 工段库房库名 where 工段名称='''+denglu.gdlx+'''');
         rkcx.Form4.adoquery3.Active:=true;
         rkcx.Form4.adoquery3.Open;
           while  not  rkcx.Form4.adoquery3.Eof do
             begin
                rkcx.Form4.ComboBox2.Items.Add( rkcx.Form4.adoquery3.FieldByName('工段库房库名').AsString);
                rkcx.Form4.adoquery3.Next;
             end;
end;

procedure TForm4.Label19Click(Sender: TObject);
begin
combobox3.clear;
rkcx.Form4.adoquery4.Close;
         rkcx.Form4.adoquery4.Active:=false;
         rkcx.Form4.adoquery4.Connection:=rkcx.Form4.ADOConnection4;
         rkcx.Form4.adoquery4.SQL.Clear;
         rkcx.Form4.adoquery4.SQL.Add('select * from 工段物资位置 where 工段名称='''+denglu.gdlx+'''');
         rkcx.Form4.adoquery4.Active:=true;
         rkcx.Form4.adoquery4.Open;
           while  not  rkcx.Form4.adoquery4.Eof do
             begin
                rkcx.Form4.ComboBox3.Items.Add( rkcx.Form4.adoquery4.FieldByName('工段物资位置').AsString);
                rkcx.Form4.adoquery4.Next;
             end;

end;

procedure TForm4.Button1Click(Sender: TObject);
begin
if messagedlg('确认要删除吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
       
         begin


        {adoquery5.Active:=false;
        adoquery5.Connection:=wzlr.Form2.ADOConnection5;
        adoquery5.SQL.Clear;
        adoquery5.SQL.Add('select * from 入库表总表 where  入库单号='''+edit2.Text+'''');
        adoquery5.Active:=true;
        adoquery5.Open;  }
        //物资编码
        //wzbm:=adoquery2.Fields[1].AsString;
        //物资名称
       //wzmc:=adoquery2.Fields[2].AsString;
        //规格型号
        //ggxh:=adoquery2.Fields[3].AsString;
        //物资类型
       //wzlx:=adoquery2.Fields[14].AsString;
        //提交
        //sl:=adoquery5.Fields[6].AsFloat;
        //dj:=adoquery5.Fields[5].AsFloat;
        //showmessage(floattostr(sl));
        adoquery2.Delete;
        end
end;

end.