ckjm.pas

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

unit ckjm;

interface

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

type
  TForm5 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    Panel1: TPanel;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker1: TDateTimePicker;
    Panel2: TPanel;
    RadioButton2: TRadioButton;
    Panel3: TPanel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn7: TBitBtn;
    Label9: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Edit2: TEdit;
    Edit4: TEdit;
    Label4: TLabel;
    Edit5: TEdit;
    DBGrid2: TDBGrid;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ADOConnection1: TADOConnection;
    ADOConnection2: TADOConnection;
    ADOConnection3: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    ComboBox2: TComboBox;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}
uses sblx,denglu,xxwh;
procedure TForm5.DBGrid1DblClick(Sender: TObject);

var

 sbbh:integer;

 ysl:real;
 sl:real;
 ckl:real;
 ysll:real;

 zzsl:real;
 wzbm:string;
 wzmc:string;
 ggxh:string;
 wzlx:string;
 kc:real;



begin
          //showmessage('asdfasdf');
         if (edit2.Text<>'') then
          if (edit4.Text<>'') then
           if (combobox2.Text<>'') then
            if (edit5.Text<>'') then
                if (combobox1.Text<>'') then
                    if messagedlg('确认添加该记录吗?',mtconfirmation,[mbyes,mbno],0)=mryes  then
                      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;
                              adoquery1.Insert;
                          //usfid:=wzfc.Form3.ADOQuery1.Fields[0].AsInteger;
                          wzbm:=ADOQuery2.Fields[1].AsString;
                          wzmc:=adoquery2.Fields[2].AsString;
                         // wzlx:=adoquery2.Fields[12].AsString;
                          ggxh:=adoquery2.Fields[3].AsString;
                           ysl:=adoquery2.Fields[5].AsFloat;
                          // showmessage(floattostr(ysl));
                         // showmessage(floattostr(dj));
                              adoquery3.Close;
                              adoquery3.Active:=false;
                              adoquery3.Connection:=ckjm.Form5.ADOConnection3;
                              adoquery3.SQL.Clear;
                              adoquery3.SQL.Add('select * from 工段入库总表 where 物资编码='''+wzbm+''' and 物资名称='''+wzmc+''' and 规格型号='''+ggxh+''' and 工段名称='''+denglu.gdlx+'''');
                              //adoquery5.SQL.Clear;
                              adoquery3.Active:=true;
                              adoquery3.Open;


        //物资编码
               adoquery1.Fields[1].AsString:=adoquery3.Fields[1].AsString;
              
        //物资名称
               adoquery1.Fields[2].AsString:=adoquery3.Fields[2].AsString;

        //规格型号
               adoquery1.Fields[3].AsString:=adoquery3.Fields[3].AsString;

        //记录单位
               adoquery1.Fields[4].AsString:=adoquery3.Fields[4].AsString;
        //发出数量
               adoquery1.Fields[5].AsFloat:=strtofloat(edit4.Text);
               //sl:=strtofloat(edit4.Text);
               //showmessage(floattostr(sl));
        //原数量
               //ysl:=adoquery1.Fields[6].AsInteger;
        //发出单价
            //   adoquery2.Fields[5].AsFloat:=adoquery1.Fields[9].AsFloat;;

        //发出金额
               //adoquery2.Fields[7].AsFloat:=dj*sl;
              // adoquery2.Fields[22].AsFloat:=dj*sl;
              // fcje:=adoquery2.Fields[7].AsFloat;
              // fcje:=wzfc.Form3.adoquery2.Fields[7].AsFloat;
         //摘要
               adoquery1.Fields[6].AsString:=adoquery3.Fields[6].AsString;
     //日期
               adoquery1.Fields[7].AsDateTime:=now();
          //用于设备
               adoquery1.Fields[8].AsString:=edit2.Text;
         //设备部位
               adoquery1.Fields[9].AsString:=edit5.Text;
       //领料人
               adoquery1.Fields[10].AsString:=combobox2.Text;
            //发料人
               adoquery1.Fields[11].AsString:=combobox1.Text;

               //工段名称
               adoquery1.Fields[12].AsString:=denglu.gdlx;
                              adoquery1.Post;

                              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;


                              adoquery2.Close;
                              adoquery2.Active:=false;
                              adoquery2.Connection:=ckjm.Form5.ADOConnection2;
                              adoquery2.SQL.Clear;
                              adoquery2.SQL.Add('select * from 工段库存总表 where 工段名称='''+denglu.gdlx+'''');
                              //adoquery5.SQL.Clear;
                              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

            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