ywgl_gjgl_xgform.~pas

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

unit YWGL_GJGL_XGFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, Db, ADODB;
var appgj:boolean;
type
  TYWGL_GJGL_XG = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    ADOTable2: TADOTable;
    Label9: TLabel;
    DataSource2: TDataSource;
    ADOTable2DSDesigner: TStringField;
    ADOTable2DSDesigner2: TStringField;
    ADOTable2DSDesigner3: TStringField;
    ADOTable2DSDesigner4: TStringField;
    ADOTable2DSDesigner5: TDateTimeField;
    ADOTable2DSDesigner6: TStringField;
    ADOTable2DSDesigner7: TStringField;
    ADOTable2DSDesigner8: TStringField;
    ADOTable2DSDesigner9: TStringField;
    ADOTable2DSDesigner10: TStringField;
    DBEdit5: TDBEdit;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWGL_GJGL_XG: TYWGL_GJGL_XG;

implementation

uses YWGL_GJGLFORM;

{$R *.DFM}

procedure TYWGL_GJGL_XG.BitBtn3Click(Sender: TObject);
begin
YWGL_GJGL.ADOTable1.cancel;
close;
end;

procedure TYWGL_GJGL_XG.FormShow(Sender: TObject);
begin
dbedit2.setfocus;
end;

procedure TYWGL_GJGL_XG.BitBtn1Click(Sender: TObject);
  var bian:string; b:integer;
begin
     if dbedit2.text='' then begin
         showmessage('工具名称不能为空，请添加。');
         dbedit2.setfocus;
         exit;
     end;
     bian:=YWGL_GJGL.adotable1.fieldbyname('编号').asstring;
     YWGL_GJGL.adotable1.fieldbyname('购买日期').asdatetime:=datetimepicker1.date;
     YWGL_GJGL.ADOTable1.Post;

end;



end.