ufrma01_hy.pas

一个会议签到系统

unit uFrmA01_HY;

interface

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

type
  TFrmA01_HY = class(TForm)
    Panel2: TPanel;
    Shape8: TShape;
    Shape9: TShape;
    Shape7: TShape;
    Image2: TImage;
    Label2: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    DTPA: TDateTimePicker;
    Label4: TLabel;
    DTPB2: TDateTimePicker;
    DTPB1: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image10: TImage;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit3: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
   
    { Private declarations }
  public
    iFlag:Integer;
    { Public declarations }
  end;

var
  FrmA01_HY: TFrmA01_HY;

implementation

uses uFunSys, uDMOA, uFrmMain;

{$R *.dfm}

procedure TFrmA01_HY.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmA01_HY.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CaFree;
  FrmA01_HY:=nil;
end;

procedure TFrmA01_HY.BitBtn1Click(Sender: TObject);
var
  Str,S:String;
  sBM,sMC,sDateYMD,sDateHMSA,sDateHMSB:String;
begin
  if Edit1.Text = '' then begin
     DlgWarningA('会议编号不能为空');
     Exit;
  end;
  {******** 检测是否重复 ************** }
  Str:='Select * from TAD02_HY Where sBM = '+''''+Edit1.Text+'''';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  if (DMOA.ADOQry.RecordCount > 0) and ( iFlag = 0) then  begin
     DlgWarningA('会议编号重复');
     Exit;
  end;
  
  Str:='Delete From TAD02_HY Where sBM = '+''''+Edit1.Text+'''';
  sBM:=Edit1.Text;sDateYMD:=FZDateStr(DTPA.DateTime,False);
  sDateHMSA:=TimeToStr(DTPB1.Time);sDateHMSB:=TimeToStr(DTPB2.Time);
  sMC:=Edit3.Text;  
  S:=FCreateInSertOneSQL(['sBM','sMC','sDateYMD','sDateHMSA','sDateHMSB','sBZ'],
                         [sBM,sMC,sDateYMD,sDateHMSA,sDateHMSB,Edit2.text],
                         [0,1,2,3,4,5],
                         'TAD02_HY');
  if FCarryOutSQL(nil,Str+' '+S,False) then begin
     FrmMain.sSYSSQL:='XXX';
     Close;
  end;

end;

procedure TFrmA01_HY.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = '''' then Key :=#0;
end;



end.