ywgl_gjgl_jdform.~pas

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

unit YWGL_GJGL_JDFORM;

interface

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

type
  TYWGL_GJGL_JD = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    ADOTable1: TADOTable;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TStringField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TFloatField;
    ADOTable1DSDesigner6: TStringField;
    Label5: TLabel;
    DataSource1: TDataSource;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBLookupComboBox1: TDBLookupComboBox;
    procedure FormShow(Sender: TObject);
    procedure DBEdit1Enter(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWGL_GJGL_JD: TYWGL_GJGL_JD;

implementation

uses YWGL_GJGLFORM;

{$R *.DFM}

procedure TYWGL_GJGL_JD.FormShow(Sender: TObject);
begin
dblookupcombobox1.SetFocus;
end;

procedure TYWGL_GJGL_JD.DBEdit1Enter(Sender: TObject);
begin
tdbedit(sender).color:=clFuchsia;
end;

procedure TYWGL_GJGL_JD.DBEdit1Exit(Sender: TObject);
begin
tdbedit(sender).color:=clwindow;
end;

procedure TYWGL_GJGL_JD.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
   if (activecontrol is tdbedit) or
   (activecontrol is tdblookupcombobox) then  begin
        perform(wm_nextdlgctl,0,0);
   end;
end;

end;

procedure TYWGL_GJGL_JD.BitBtn3Click(Sender: TObject);
begin
YWGL_GJGL.ADOTable1.Cancel;
close;
end;


procedure TYWGL_GJGL_JD.BitBtn1Click(Sender: TObject);
begin
   if dblookupcombobox1.text='' then begin
        showmessage('请选择职员信息.');
        dblookupcombobox1.setfocus;
        exit;
   end;
   adotable1.Edit;
   YWGL_GJGL.ADOTable1.Edit;
   YWGL_GJGL.ADOTable1.fieldbyname('使用状态').asstring:=adotable1.fieldbyname('职员').asstring+'借走';
   adotable1.FieldByName('应用工具').asstring:=adotable1.FieldByName('应用工具').asstring+
                                   YWGL_GJGL.ADOTable1.fieldbyname('编号').asstring+';';
   YWGL_GJGL.ADOTable1.Post;
   adotable1.Post;
   bitbtn2.enabled:=true;
   bitbtn1.enabled:=false;
end;

procedure TYWGL_GJGL_JD.BitBtn2Click(Sender: TObject);
 var bian,gong1,gong2,gong:string;
begin
   adotable1.Edit;
   YWGL_GJGL.ADOTable1.edit;
   YWGL_GJGL.ADOTable1.FieldByName('使用状态').asstring:='';
   bian:=YWGL_GJGL.adotable1.fieldbyname('编号').asstring;
   gong:=adotable1.fieldbyname('应用工具').asstring;
   if pos(bian,gong)<>0 then begin
      gong1:=copy(gong,1,pos(bian,gong)-1);
      gong2:=copy(gong,pos(bian,gong)+4,length(gong));
      gong:=gong1+gong2;
   end;
   adotable1.FieldByName('应用工具').asstring:=gong;
   adotable1.Post;
   YWGL_GJGL.ADOTable1.Post;
   bitbtn1.enabled:=true;
   bitbtn2.enabled:=false;
end;

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

end;

end.