specifydayfrm.~pas

delphi 编制的服务器程序

unit SpecifyDayFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DbChildFrm, DB, ADODB, ImgList, Grids, DBGrids, ComCtrls,
  Buttons, ExtCtrls, DBDateTimePicker, StdCtrls, DBCtrls;

type
  TSpecifyDaYForm = class(TDbChildForm)
    ADOQuery1day: TDateTimeField;
    ADOQuery1RoomID: TIntegerField;
    ADOQuery1Explain: TWideStringField;
    ADOQuery2: TADOQuery;
    ADOQuery1RoomCap: TStringField;
    Label1: TLabel;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label3: TLabel;
    DBMemo1: TDBMemo;
    DBDateTimePicker1: TDBDateTimePicker;
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SpecifyDaYForm: TSpecifyDaYForm;
  procedure CallSpecifyDaYForm;
implementation

uses MainDm;

{$R *.dfm}
procedure CallSpecifyDaYForm;
begin
  if SpecifyDaYForm = nil then
    SpecifyDaYForm := TSpecifyDaYForm.Create(Application);
  SpecifyDaYForm.ShowModal;
  SpecifyDaYForm.Free;
  SpecifyDaYForm := nil;
end;
procedure TSpecifyDaYForm.ADOQuery1AfterInsert(DataSet: TDataSet);
begin
  inherited;
  AdoQuery1Day.Value := Now;
end;

end.