mrwx_bjrk_tj.~pas

明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考

unit MRWX_BJRK_TJ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls, Db, ADODB;

type
  TMR_WXBJRK_TJ = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit14: TDBEdit;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBLookupComboBox5: TDBLookupComboBox;
    ADOTable1: TADOTable;
    ADOTable5: TADOTable;
    DataSource5: TDataSource;
    ADOTable5DSDesigner: TStringField;
    ADOTable5DSDesigner2: TStringField;
    ADOTable5DSDesigner3: TStringField;
    ADOTable5DSDesigner4: TStringField;
    ADOTable5DSDesigner5: TDateTimeField;
    ADOTable5DSDesigner6: TStringField;
    ADOTable5DSDesigner7: TStringField;
    ADOTable5DSDesigner8: TStringField;
    ADOTable5DSDesigner9: TStringField;
    ADOTable5DSDesigner10: TStringField;
    ADOTable1DSDesigner: TStringField;
    DBComboBox1: TDBComboBox;
    ADOQuery1: TADOQuery;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    ADOQuery2: TADOQuery;
    ADOQuery2DSDesigner: TStringField;
    ADOQuery2DSDesigner2: TStringField;
    ADOQuery2DSDesigner3: TStringField;
    ADOQuery2DSDesigner4: TStringField;
    ADOQuery2DSDesigner5: TStringField;
    ADOQuery2DSDesigner6: TStringField;
    ADOQuery2DSDesigner7: TStringField;
    ADOQuery2DSDesigner8: TStringField;
    ADOQuery1DSDesigner: TStringField;
    ADOQuery1DSDesigner2: TStringField;
    ADOQuery1DSDesigner3: TStringField;
    ADOQuery1DSDesigner4: TStringField;
    ADOQuery1DSDesigner5: TStringField;
    ADOQuery1DSDesigner6: TStringField;
    ADOQuery1DSDesigner7: TStringField;
    procedure DBEdit1Enter(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox5KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8Exit(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBEdit9Exit(Sender: TObject);
    procedure DataSource4DataChange(Sender: TObject; Field: TField);
    procedure FormShow(Sender: TObject);
    procedure DBComboBox1Exit(Sender: TObject);
    procedure DBComboBox1Change(Sender: TObject);
    procedure DBComboBox3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MR_WXBJRK_TJ: TMR_WXBJRK_TJ;

implementation

uses MRWX_BJRK;

{$R *.DFM}

procedure TMR_WXBJRK_TJ.DBEdit1Enter(Sender: TObject);
begin
tedit(sender).color:=claqua;
end;

procedure TMR_WXBJRK_TJ.DBEdit1Exit(Sender: TObject);
begin
Tdbedit(sender).color:=clwindow;
end;

procedure TMR_WXBJRK_TJ.BitBtn3Click(Sender: TObject);
begin
mr_wxbj_rk.ADOTable3.cancel;
close;
end;

procedure TMR_WXBJRK_TJ.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
   if (activecontrol is Tdbedit) or (activecontrol is tdbcombobox) then
     Perform(WM_nextdlgctl,0,0);
end;

end;

procedure TMR_WXBJRK_TJ.DBLookupComboBox4KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#13 then begin
   dbedit11.setfocus;
end;
end;

procedure TMR_WXBJRK_TJ.DBLookupComboBox5KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#13 then begin
    dbedit14.SetFocus;
end;
end;

procedure TMR_WXBJRK_TJ.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
animatewindow(handle,300,AW_VER_NEGATIVE+AW_CENTER+AW_HIDE);

end;

procedure TMR_WXBJRK_TJ.BitBtn1Click(Sender: TObject);
var bian:string;  bian1:integer;
    ke:string; i:integer;
begin
if (dbedit11.Text='') or (dbedit11.text='0') then begin
    showmessage('金额不能为空或为0，请察看您的入库单价和数量！');
    dbedit8.setfocus;
    exit;
end;
if  dbcombobox1.text='' then begin
    showmessage('请输入维修物品名称.');
    dbcombobox1.SetFocus;
    exit;
end;
if  dbcombobox3.text='' then begin
    showmessage('请选择或输入物品型号.');
    dbcombobox3.setfocus;
    exit;
end;
if  dbcombobox2.Text='' then begin
    showmessage('请选择或输入商家信息.');
    dbcombobox2.setfocus;
    exit;
end;
if  dblookupcombobox5.Text='' then begin
    showmessage('请选择经手人.');
    dblookupcombobox5.SetFocus;
    exit;
end;
 {  adoquery1.Close;
   adoquery1.SQL.clear;
   adoquery1.SQL.Add('select * from 备件基本信息');
   adoquery1.Open;
   adoquery1.last;
   ke:=adoquery1.fieldbyname('备件编号').asstring;    
   if not adoquery1.Locate('备件名称;备件名称;备件型号',vararrayof([dbcombobox1.text,
      dbcombobox3.text,dbedit4.text]),[loCaseInsensitive]) then begin
         if ke='' then ke:='000001' else begin
            ke:=inttostr(strtoint(ke)+1);
            for i:=1 to 6-length(ke) do begin
               ke:='0' + ke;
            end;
         end;
         adoquery1.Append;
         adoquery1.FieldByName('备件编号').asstring:=ke;
         adoquery1.fieldbyname('备件名称').asstring:=dbcombobox1.text;
         adoquery1.FieldByName('备件型号').asstring:=dbcombobox3.text;
         adoquery1.FieldByName('备件规格').asstring:=dbedit4.text;
         adoquery1.Post;
   end;
   adoquery2.Last;
   ke:=adoquery2.fieldbyname('商家编号').asstring;
   if not adoquery2.Locate('商家名称',dbcombobox2.text,[loCaseInsensitive]) then begin
       if ke='' then ke:='000001' else begin
           ke:=inttostr(strtoint(ke)+1);
           for i:=1 to 6-length(ke) do begin
               ke:='0'+ke;
           end;
       end;
       adoquery2.Append;
       adoquery2.FieldByName('商家编号').asstring:=ke;
       adoquery2.FieldByName('商家名称').asstring:=dbcombobox2.text;
       adoquery2.Post;
   end;
         mr_wxbj_rk.ADOTable3.FieldByName('部门').asstring:=
             mr_wxbj_rk.ComboBox3.Text;
         MR_WXBJ_RK.adotable3.Post;
         if mr_wxbj_rk.adotable1.locate('物品名称;型号;规格;部门',
               vararrayof([dbcombobox1.text,dbcombobox3.text,dbedit4.text,mr_wxbj_rk.combobox3.text]),
               [loCaseInsensitive]) then begin
                   mr_wxbj_rk.adotable1.Edit;
                   mr_wxbj_rk.adotable1.FieldByName('数量').asinteger:=
                       mr_wxbj_rk.adotable1.FieldByName('数量').asinteger+
                       strtoint(dbedit8.text)-
                       strtoint(dbedit12.text);
                   mr_wxbj_rk.adotable1.FieldByName('库存金额').asfloat:=
                       mr_wxbj_rk.adotable1.FieldByName('库存金额').asfloat+
                       strtofloat(dbedit11.text);
                   mr_wxbj_rk.adotable1.fieldbyname('平均单价').asfloat:=
                       mr_wxbj_rk.adotable1.fieldbyname('库存金额').asfloat/
                       mr_wxbj_rk.adotable1.fieldbyname('数量').asfloat;
                   mr_wxbj_rk.adotable1.Post;
         end else begin
                   mr_wxbj_rk.adotable1.Last;
                   bian:=mr_wxbj_rk.adotable1.fieldbyname('编号').asstring;
                   if bian='' then begin
                       bian:='000001';
                   end else begin
                       bian:=inttostr(strtoint(bian)+1);
                       for bian1:=1 to 6-length(bian) do begin
                           bian:='0'+bian;
                       end;
                   end;
                   mr_wxbj_rk.adotable1.InsertRecord([bian,dbcombobox1.text,
                       dbcombobox3.text,dbedit4.text,dbedit5.text,
                       strtoint(dbedit8.text)-strtoint(dbedit12.text),
                       dbedit9.text,dbedit11.text,
                       mr_wxform.adotable2.fieldbyname('库存上限').asinteger,
                       mr_wxform.adotable2.fieldbyname('库存下限').asinteger,
                       mr_wxbj_rk.combobox3.text]);