unit13.pas

一个用DELPHI编的酒店管理系统。 其中数据库：SQL Server2000, 只需恢复 My database文件夹中 My database_Data.MDF和 My database_Log.

unit Unit13;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls, DB,
  DBTables,IdGlobal;
type
  TForm13 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    goodsid: TEdit;
    goodsname: TEdit;
    providerid: TEdit;
    GroupBox2: TGroupBox;
    lowindate: TDateTimePicker;
    highindate: TDateTimePicker;
    Label4: TLabel;
    DBGrid1: TDBGrid;
    GroupBox6: TGroupBox;
    DBNavigator1: TDBNavigator;
    GroupBox7: TGroupBox;
    select: TButton;
    print: TButton;
    refresh: TButton;
    exit: TButton;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure exitClick(Sender: TObject);
    procedure refreshClick(Sender: TObject);
    procedure selectClick(Sender: TObject);
    procedure printClick(Sender: TObject);
  private
    { Private declarations }
    s:string;
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation
uses unit38, unit42;

{$R *.dfm}

procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 self.Free;
end;

procedure TForm13.FormCreate(Sender: TObject);
begin
s:='select * from storage ';
   with query1 do
   begin
      close;
      sql.Clear;
      sql.Add(s);
      open;
   end;
   activeControl:=goodsId;
   lowindate.Date:=strToDate('1800-1-1');
   highindate.Date:=now;

end;

procedure TForm13.exitClick(Sender: TObject);
begin
close;
end;

procedure TForm13.refreshClick(Sender: TObject);
begin
   goodsId.Text:='';
   goodsName.Text:='';
   providerid.Text:='';
   activeControl:=goodsId;
   lowindate.Date:=strToDate('1800-1-1');
   highindate.Date:=now;

   {让数据控件dbGrid1同步显示}
   with query1 do
   begin
      close;
      sql.Clear;
      sql.Add('select * from storage');
      open;
   end;
end;

procedure TForm13.selectClick(Sender: TObject);
var
   i:integer;
   low,high:string;
begin
   s:='select * from storage ';
   i:=0;
   {处理商品编号}
   if isInteger(goodsId.Text) then
   begin
      s:=s+'where 商品编号='+goodsId.Text;
      i:=i+1;
   end;
   {处理商品名称}
   if goodsName.Text<>'' then
   begin
      if i=0 then
         s:=s+'where 商品名称='''+goodsName.Text+''''
      else
         s:=s+' and  商品名称='''+goodsName.Text+'''';
      i:=i+1;
   end;
   {处理供应商编号}
   if providerid.Text<>'' then
   begin

      if i=0 then
         s:=s+'where 供应商编号='''+providerid.Text+''''
      else
         s:=s+' and  供应商编号='''+providerid.Text+'''';
      i:=i+1;
   end;
   
   {处理入库日期}
   low:=formatDateTime('mm''/''dd''/''yyyy',lowindate.Date);
   high:=formatDateTime('mm''/''dd''/''yyyy',highindate.Date);
   if i=0 then
      s:=s+'where '
   else
      s:=s+' and ';
   s:=s+'入库日期<='''+high+''' and 入库日期>='''+low+'''';
   
    with query1 do
    begin
      close;
      sql.Clear;
      sql.Add(s);
      try
         open;
      except
         execsql;
      end;
    end;
end;

procedure TForm13.printClick(Sender: TObject);
begin
form42:=tform42.create(self);
form42.quickrep1.preview;
end;

end.