yggl_zyxx_xgform.pas

这是用Delphi编写的维修管理系统。主要功能包括业务管理

unit YGGL_ZYXX_XGFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls, ComCtrls, Db, ADODB;
var zyapp:boolean;
type
  TYGGL_ZYXX_XG = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    DateTimePicker1: TDateTimePicker;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    ADOTable4: TADOTable;
    ADOQuery1: TADOQuery;
    DBComboBox3: TDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YGGL_ZYXX_XG: TYGGL_ZYXX_XG;

implementation

uses YGGL_ZYXXFORM, MR_WXFORM;

{$R *.DFM}

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

end;


procedure TYGGL_ZYXX_XG.BitBtn3Click(Sender: TObject);
begin
YGGL_ZYXX.ADOTable1.cancel;
close;
end;

procedure TYGGL_ZYXX_XG.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 TYGGL_ZYXX_XG.DateTimePicker1KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#13 then dbcombobox2.setfocus;
end;

procedure TYGGL_ZYXX_XG.BitBtn2Click(Sender: TObject);
begin
   if length(dbedit1.text)=0 then begin
       messagedlg('职员名称不能为空,请添加.',mterror,[mbok],0);
       dbedit1.setfocus;
   end else begin
       if zyapp then begin
          adoquery1.Close;
          adoquery1.SQL.Clear;
          adoquery1.sql.add('select 职员名称 from 职员表 where 职员名称=:zname');
          adoquery1.Parameters.ParamByName('zname').datatype:=ftstring;
          adoquery1.Parameters.ParamByName('zname').value:=dbedit1.text;
          adoquery1.open;
          if adoquery1.RecordCount>0 then begin
              showmessage('该职员名称在系统中以存在,请从新添加.');
              dbedit1.SetFocus;
              exit;
          end;
       end;
       YGGL_ZYXX.ADOTable1.FieldByName('出生日期').asdatetime:=
            datetimepicker1.date;
       YGGL_ZYXX.adotable1.post;
  //     if not YGGL_ZYXX.ADOTable2.locate('职员',dbedit1.text,[loCaseInsensitive]) then begin
  //              YGGL_ZYXX.ADOTable2.InsertRecord([dbedit1.text,dbcombobox3.text,nil,nil,
  //                   mr_wxform.adotable2.FieldByName('职员折扣').AsFloat]);
  //     end;
       close;
   end;

end;

end.