udwinfofrm.pas

很不错的客房管理软件.第9次改版正式开通.每日更新.

unit UDWInfoFrm;

interface

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

type
  TDWInfoFrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    FDWMCh: string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DWInfoFrm: TDWInfoFrm;

implementation

uses UDM, ItsLibrary;

{$R *.dfm}

procedure TDWInfoFrm.FormShow(Sender: TObject);
begin
  Caption:=Format(Frm2Str, [FDWMCh]);
  with ADOQuery1 do begin
    if not Active then Active:=True;
    if not (Bof and Eof) then begin
      Edit1.Text:=FieldByName('Value').AsString;
      Next;
      DateTimePicker1.Time:=StrToTime(Trim(FieldByName('Value').AsString));
    end;
  end;
end;

procedure TDWInfoFrm.BitBtn1Click(Sender: TObject);
begin
  with TADOQuery.Create(Self) do begin
    try
      Connection:=DM.DataConn;
      if ADOQuery1.IsEmpty then begin
        SQL.Add('INSERT INTO DWInfo([Name], [Value])');
        SQL.Add('VALUES("单位名称","'+Edit1.Text+'");');
        ExecSQL;
        SQL.Clear;
        SQL.Add('INSERT INTO DWInfo([Name], [Value])');
        SQL.Add('VALUES("结帐时间","'+TimeToStr(DateTimePicker1.Time)+'");');
      end else begin
        SQL.Add('UPDATE DWInfo');
        SQL.Add('SET [VALUE]="'+Edit1.Text+'"');
        SQL.Add('WHERE ID=1;');
        ExecSQL;
        SQL.Clear;
        SQL.Add('UPDATE DWInfo');
        SQL.Add('SET [VALUE]="'+TimeToStr(DateTimePicker1.Time)+'"');
        SQL.Add('WHERE ID=2;');
      end;
      ExecSQL;
    finally
      Free;
    end;
  end;
end;

end.