xxwh.~pas

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

unit xxwh;

interface

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

type
  TForm8 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    TabSheet2: TTabSheet;
    Label5: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Button3: TButton;
    Button4: TButton;
    TabSheet3: TTabSheet;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Button5: TButton;
    Button6: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    TabSheet4: TTabSheet;
    Label7: TLabel;
    Label8: TLabel;
    Button7: TButton;
    ComboBox2: TComboBox;
    Button8: TButton;
    Edit7: TEdit;
    Edit8: TEdit;
    TabSheet5: TTabSheet;
    Label9: TLabel;
    Label10: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Button9: TButton;
    Button10: TButton;
    TabSheet6: TTabSheet;
    Label11: TLabel;
    Label12: TLabel;
    ComboBox3: TComboBox;
    Edit11: TEdit;
    Button11: TButton;
    Button17: TButton;
    Edit12: TEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    ADOConnection2: TADOConnection;
    ADOConnection3: TADOConnection;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    TabSheet7: TTabSheet;
    Label13: TLabel;
    Edit13: TEdit;
    Label14: TLabel;
    Edit14: TEdit;
    Label15: TLabel;
    Edit15: TEdit;
    Button12: TButton;
    Button13: TButton;
    Label16: TLabel;
    Edit16: TEdit;
    DBGrid1: TDBGrid;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    TabSheet11: TTabSheet;
    ADOConnection4: TADOConnection;
    ADOQuery4: TADOQuery;
    ADOConnection5: TADOConnection;
    ADOQuery5: TADOQuery;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    Label17: TLabel;
    Edit17: TEdit;
    Edit18: TEdit;
    Label18: TLabel;
    Label19: TLabel;
    Edit19: TEdit;
    Edit20: TEdit;
    Label20: TLabel;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button18: TButton;
    Label21: TLabel;
    ComboBox4: TComboBox;
    Edit21: TEdit;
    Edit22: TEdit;
    Label22: TLabel;
    Label23: TLabel;
    ComboBox5: TComboBox;
    Edit23: TEdit;
    Edit24: TEdit;
    Label24: TLabel;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    ADOConnection6: TADOConnection;
    ADOQuery6: TADOQuery;
    DataSource6: TDataSource;
    TabSheet12: TTabSheet;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit13Change(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit12Change(Sender: TObject);
    procedure Edit22Change(Sender: TObject);
    procedure Edit24Change(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure Label11Click(Sender: TObject);
    procedure Label21Click(Sender: TObject);
    procedure Label23Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}
uses ckjm,wzxx,denglu;
procedure TForm8.Button1Click(Sender: TObject);
begin
    if edit1.Text=''  then
      begin
        application.MessageBox('输入失败，请重新输入','单位名称录入',mb_ok);
        edit1.Text:='';
      end
      else
       if edit1.Text=edit2.Text  then
          begin
           xxwh.Form8.ADOQuery1.Close;
           xxwh.Form8.adoquery1.Active:=false;
           xxwh.Form8.adoquery1.Connection:=xxwh.Form8.ADOConnection1;
           xxwh.Form8.adoquery1.SQL.Clear;
           xxwh.Form8.adoquery1.SQL.Add('select * from 工段物资单位');
           //adoquery1.SQL.Add('where 职务='''+Form_khlr.ComboBox1.Text+'''');
           xxwh.Form8.adoquery1.Active:=true;
           xxwh.Form8.adoquery1.Open;
           xxwh.Form8.adoquery1.Insert;
           //adoquery1.Fields[0].AsString:=datetostr(Form_khlr.datetimepicker1.Date );
           xxwh.Form8.adoquery1.Fields[1].AsString:=edit1.Text;
           application.MessageBox('输入成功','单位名称录入',mb_ok);
           xxwh.Form8.adoquery1.Post;
           edit1.Text:='';
           edit2.Text:='';

      end
    else
      begin
        application.MessageBox('两次内容输入不一样，请从新输入','物资输入',mb_ok);
        edit1.Text:='';
        edit2.Text:='';
    end;
end;

procedure TForm8.Button3Click(Sender: TObject);
begin
        if edit5.Text=''  then
       begin
        application.MessageBox('输入失败，请重新输入','领料人录入',mb_ok);
        edit5.Text:='';
       end
        else


          if edit5.Text=edit6.Text  then
           begin

             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 工段领料名单');
             //adoquery1.SQL.Add('where 职务='''+Form_khlr.ComboBox1.Text+'''');
             xxwh.Form8.adoquery3.Active:=true;
             xxwh.Form8.adoquery3.Open;
             xxwh.Form8.adoquery3.Insert;
             //adoquery1.Fields[0].AsString:=datetostr(Form_khlr.datetimepicker1.Date );
             xxwh.Form8.adoquery3.Fields[1].AsString:=edit5.Text;
                xxwh.Form8.adoquery3.Fields[2].AsString:=denglu.gdlx;

             application.MessageBox('输入成功','领料人录入',mb_ok);
              
             xxwh.Form8.adoquery3.Post;
             edit5.Text:='';
             edit6.Text:='';


    end
    else
    begin
        application.MessageBox('两次内容输入不一样，请从新输入','用于设备输入',mb_ok);
        edit5.Text:='';
        edit6.Text:='';
    end;
end;

procedure TForm8.Button5Click(Sender: TObject);
begin
 if combobox1.Text=''  then
     begin
        application.MessageBox('输入失败，请重新输入','单位名称删除',mb_ok);

      end
       else
        begin
          if edit3.Text=''  then
            begin
              application.MessageBox('输入失败，请重新输入','单位名称删除',mb_ok);

            end
          else
    //zhongleizj.zhonglei.Active:=true;
    begin
        xxwh.Form8.ADOQuery1.Open;
        xxwh.Form8.ADOQuery1.MoveBy(strtoint(edit4.Text));
        xxwh.Form8.ADOQuery1.Delete;

         //form1.ADOQuery1.UpdateRecord;
            Application.MessageBox('删除数据成功！','提示信息',MB_OK);

            edit3.Text:='';
            edit4.Text:='';
      end
    end;
end;

procedure TForm8.Button7Click(Sender: TObject);
begin
  if combobox2.Text='' then
     begin
        application.MessageBox('输入失败，请重新输入','领料人删除',mb_ok);

     end
  else
    begin
     if edit7.Text='' then
       begin
         application.MessageBox('输入失败，请重新输入','领料人删除',mb_ok);
       end
     else
    //zhongleizj.zhonglei.Active:=true;
        begin
          xxwh.Form8.ADOQuery2.Open;
          xxwh.Form8.ADOQuery2.MoveBy(strtoint(edit8.Text));
          xxwh.Form8.ADOQuery2.Delete;

         //form1.ADOQuery1.UpdateRecord;
          Application.MessageBox('删除数据成功！','提示信息',MB_OK);
          edit7.Text:='';
          edit8.Text:='';
      end
    end;
end;

procedure TForm8.Button9Click(Sender: TObject);
begin
 if edit9.Text=''  then
      begin
        application.MessageBox('输入失败，请重新输入','发料人录入',mb_ok);
        edit9.Text:='';
      end
      else
       if edit9.Text=edit10.Text  then
          begin
           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 工段发料名单');
           //adoquery1.SQL.Add('where 职务='''+Form_khlr.ComboBox1.Text+'''');
           xxwh.Form8.adoquery3.Active:=true;
           xxwh.Form8.adoquery3.Open;
           xxwh.Form8.adoquery3.Insert;
           //adoquery1.Fields[0].AsString:=datetostr(Form_khlr.datetimepicker1.Date );
           xxwh.Form8.adoquery3.Fields[1].AsString:=edit10.Text;
             xxwh.Form8.adoquery3.Fields[2].AsString:=denglu.gdlx;

           application.MessageBox('输入成功','发料人录入',mb_ok);
           xxwh.Form8.adoquery3.Post;
           edit9.Text:='';
           edit10.Text:='';

      end
    else
      begin
        application.MessageBox('两次内容输入不一样，请从新输入','发料人输入',mb_ok);
        edit9.Text:='';
        edit10.Text:='';
    end;
end;

procedure TForm8.Button11Click(Sender: TObject);
begin
 if combobox3.Text='' then
     begin
        application.MessageBox('输入失败，请重新输入','发料人删除',mb_ok);
     end
  else
    begin
     if edit12.Text='' then
       begin
         application.MessageBox('输入失败，请重新输入','发料人删除',mb_ok);
       end
     else
    //zhongleizj.zhonglei.Active:=true;
        begin
          xxwh.Form8.ADOQuery3.Open;
          xxwh.Form8.ADOQuery3.MoveBy(strtoint(edit11.Text));
          xxwh.Form8.ADOQuery3.Delete;

         //form1.ADOQuery1.UpdateRecord;
          Application.MessageBox('删除数据成功！','提示信息',MB_OK);
          edit11.Text:='';
          edit12.Text:='';
    end
    end;
end;

procedure TForm8.FormCreate(Sender: TObject);
begin
    
        //adoquery1.Close;
       
end;

procedure TForm8.Edit13Change(Sender: TObject);
begin
xxwh.Form8.ADOQuery6.Close;
            xxwh.Form8.adoquery6.Active:=false;
            xxwh.Form8.adoquery6.SQL.Clear;
            xxwh.Form8.adoquery6.SQL.Add('select * from 工段设备归类 where 设备代码 like ''%''+'''+edit13.Text+'''+''%'' and 工段名称='''+denglu.gdlx+'''');
            //xxwh.Form8.adoquery1.SQL.Add('where 设备代码 like ''%''+'''+edit1.Text+'''+''%''');
            xxwh.Form8.adoquery6.Active:=true;
            xxwh.Form8.adoquery6.Open;

        xxwh.Form8.dbgrid1.Columns[0].Width:=40;
        xxwh.Form8.dbgrid1.Columns[1].Width:=80;
        xxwh.Form8.dbgrid1.Columns[2].Width:=250;
        xxwh.Form8.dbgrid1.Columns[3].Width:=50;
        
end;






procedure TForm8.DBGrid1DblClick(Sender: TObject);

var
t:string;
 d:string;
//
begin


if messagedlg('确认该设备是在这个位置吗?',mtconfirmation,[mbyes,mbno],0)=mryes  then
    begin

           xxwh.Form8.Edit16.Text:=adoquery6.Fields[2].AsString;

        end

  


       end;
procedure TForm8.Button12Click(Sender: TObject);
var
t:string;