unt_cardform.pas

酒店资源管理的软件

unit unt_CardForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, Buttons, Grids, DBGrids,
  DBTables;

type
  TCardForm = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure LoadFromTable();
  end;

var
  CardForm: TCardForm;

implementation
uses unt_CheckUser, Main;
{$R *.dfm}

procedure TCardForm.LoadFromTable();
begin
  Edit1.Text := mainForm.query1.fieldbyname('id').AsString;
  Edit2.Text := mainForm.query1.fieldbyname('cardbank').AsString;
  Edit3.Text := mainForm.query1.fieldbyname('cardname').AsString;
  Edit4.Text := mainForm.query1.fieldbyname('money1').AsString;
  Edit5.Text := mainForm.query1.fieldbyname('note1').AsString;
end;

procedure TCardForm.BitBtn4Click(Sender: TObject);
begin
  CardForm.Close;
end;

procedure TCardForm.BitBtn2Click(Sender: TObject);
var
  sSql: String;
begin
  sSql := 'select * from card';
  mainForm.exeSql(mainForm.query1,sSql,'1');
  if mainForm.query1.RecordCount = 0 then
    Edit1.Text := '1'
  else
  begin
    mainForm.query1.Last;
    Edit1.Text := IntToStr(mainForm.query1.FieldByName('id').AsInteger + 1);
  end;
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  Edit5.Text := '';
end;

procedure TCardForm.BitBtn1Click(Sender: TObject);
var
  sSql: String;
begin
  sSql := 'select * from card where id=' + Edit1.Text;
  mainForm.exeSql(mainForm.query1,sSql,'1');
  if mainForm.query1.RecordCount = 0 then
  begin
    sSql := 'insert into card values(' + Edit1.Text + ',''' + Edit3.Text
          + ''',''' + Edit2.Text + ''',''' + Edit4.Text + ''','''
          + Edit5.Text + ''',''' + Main.username + ''',#' + FormatDateTime('yyyy-mm-dd',Now)
          + '#)';
  end
  else
  begin
    sSql := 'update Card set cardname=''' + Edit3.Text + ''',cardbank='''
          + Edit2.Text + ''',money1=''' + Edit4.Text + ''',note1=''' + Edit5.Text
          + ''',operator=''' + Main.username + ''',oper_date=''' + FormatDateTime('yyyy-mm-dd',Now)
          + ''' where id=' + Edit1.Text;
  end;
  mainForm.exeSql(mainForm.query1,sSql,'2');
  ShowMessage('修改成功');
  ADOTable1.Active := False;
  ADOTable1.Active := True;
end;

procedure TCardForm.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = '' then
  begin
    BitBtn1.Enabled := False;
    BitBtn3.Enabled := False;
  end
  else
  begin
    BitBtn1.Enabled := True;
    BitBtn3.Enabled := True;
  end;
end;

procedure TCardForm.BitBtn3Click(Sender: TObject);
var
  sSql: String;
begin
  sSql := 'delete from card where id=' + Edit1.Text;
  mainForm.exeSql(mainForm.query1,sSql,'2');
  ShowMessage('删除记录成功');
  ADOTable1.Active := False;
  ADOTable1.Active := True;
end;

procedure TCardForm.FormShow(Sender: TObject);
var
  sSql: String;
begin
  ADOTable1.Active := True;
  sSql := 'select * from card';
  mainForm.exeSql(mainForm.query1,sSql,'1');
  if mainForm.query1.RecordCount = 0 then
    BitBtn3.Enabled := False
  else
  begin
    mainForm.query1.First;
    LoadFromTable;
  end;
  BitBtn1.Enabled := False;

end;


procedure TCardForm.Edit2Change(Sender: TObject);
begin
  BitBtn1.Enabled := True;
end;

procedure TCardForm.ADOTable1AfterScroll(DataSet: TDataSet);
var
  sSql: String;
begin
  sSql := 'select * from card where id=' + DBGrid1.Fields[0].AsString;
  mainForm.exeSql(mainForm.query1,sSql,'1');
  LoadFromTable;
end;

procedure TCardForm.Edit3Change(Sender: TObject);
begin
  BitBtn1.Enabled := True;
end;

procedure TCardForm.Edit4Change(Sender: TObject);
begin
  BitBtn1.Enabled := True;
end;

procedure TCardForm.Edit5Change(Sender: TObject);
begin
  BitBtn1.Enabled := True;
end;

end.