startcomputerfrm.pas

自己看把！

unit StartComputerFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, RXCtrls, ExtCtrls, ToolEdit, CurrEdit,
  ComCtrls, LingXiFrame, DateUtils;

type
  TfrmStartComputer = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Bevel1: TBevel;
    btnOK: TButton;
    btnCancel: TButton;
    edtKaHao: TEdit;
    dtpXianShi: TDateTimePicker;
    edtYaJin: TCurrencyEdit;
    edtBeiZhu: TEdit;
    Label1: TLabel;
    Frame11: TFrame1;
    DBCheckBox1: TDBCheckBox;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure StartComputer;
    procedure EditComputer;
    procedure WriteEditComputer(KaHao: string; XianShi: TTime; YaJin: Double;
      BeiZhu: string);
    procedure SetEditModal;
  end;

var
  frmStartComputer: TfrmStartComputer;

implementation

uses MainDM, MainFrm, DB, ADODB;

{$R *.dfm}

{ TfrmStartComputer }


procedure TfrmStartComputer.EditComputer;
var
  KaHao: string;
  XianShi: TTime;
  YaJin: Double;
  BeiZhu: string;
begin
  KaHao := edtKaHao.Text;
  XianShi := dtpXianShi.Time;
  YaJin := edtYaJin.Value;
  BeiZhu := edtBeiZhu.Text;
  if KaHao <> '' then
    if not frmMain.IsHuiyan(KaHao) then begin
      ShowMessage('您所输入的卡号不存在，或已被禁用！');
      Exit;
    end else begin
      WriteEditComputer(KaHao, XianShi, YaJin, BeiZhu);
    end
  else
  begin
    WriteEditComputer(KaHao, XianShi, YaJin, BeiZhu);
  end;
end;

procedure TfrmStartComputer.SetEditModal;
begin
  Caption := '修改';
  edtKaHao.Text := dmMain.tblMain.FieldByName('卡号').AsString;
  dtpXianShi.DateTime := dmMain.tblMain.FieldByName('限时').AsDateTime;
  edtYaJin.Text := dmMain.tblMain.FieldByName('压金').AsString;
  edtBeiZhu.Text := dmMain.tblMain.FieldByName('备注').AsString;
end;

procedure TfrmStartComputer.StartComputer;
var
  KaHao: string;
  XianShi: TTime;
  YaJin: Double;
  BeiZhu: string;
begin
  KaHao := edtKaHao.Text;
  XianShi := TimeOf(dtpXianShi.Time);
  YaJin := edtYaJin.Value;
  BeiZhu := edtBeiZhu.Text;
  if KaHao <> '' then
    if not frmMain.IsHuiyan(KaHao) then
      ShowMessage('您所输入的卡号不存在，或已被禁用！')
    else
      frmMain.BeginComputer(KaHao, XianShi, YaJin, BeiZhu)
  else
    frmMain.BeginComputer(XianShi, YaJin, BeiZhu);
end;

procedure TfrmStartComputer.WriteEditComputer;
begin
  with dmMain.tblMain do
  begin
    Edit;
    FieldByName('卡号').AsString := KaHao;
    FieldByName('限时').AsDateTime := XianShi;
    FieldByName('压金').AsFloat := YaJin;
    FieldByName('备注').AsString := BeiZhu;
    Post;
  end;
end;

end.