unit1.pas

这是我帮别人做的一个毕业设计

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    fjh: TDBEdit;
    id: TDBEdit;
    khxm: TDBEdit;
    rzsq: TDBEdit;
    rzly: TDBEdit;
    fj: TDBEdit;
    zsts: TDBEdit;
    zbrs: TDBEdit;
    dhhm: TDBEdit;
    jsfy: TDBEdit;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Memo1: TMemo;
    Label16: TLabel;
    Button2: TButton;
    Label23: TLabel;
    queryado: TADOTable;
    memo2: TMemo;
    DBNavigator2: TDBNavigator;
    TabSheet4: TTabSheet;
    Label17: TLabel;
    Label18: TLabel;
    loginado: TADOTable;
    BitBtn1: TBitBtn;
    Pass: TEdit;
    BitBtn2: TBitBtn;
    loginsr: TDataSource;
    GroupBox1: TGroupBox;
    Label21: TLabel;
    Username: TDBEdit;
    Usepas: TDBEdit;
    Label19: TLabel;
    DBNavigator3: TDBNavigator;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    UserNam: TComboBox;
    ADOConnection1: TADOConnection;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  login:boolean ;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
          if ( ( edit1.text = '' ) and ( edit2.text = '' )  and ( edit3.text = '' )  ) then
          begin
             MessageBox(handle, '请你输入查询条件！', '警告', mb_IconWarning + mb_Ok);
             Exit;
          end;

          if edit1.text<>''then
          begin
            memo1.Text:='你的查询条件是:客户姓名='+''''+edit1.Text+'''';
            queryado.Filtered:=false;
            queryado.Locate('客户姓名',trim(edit1.Text),[]);
            DBGrid1.SetFocus;
            if queryado.FieldByName('客户姓名').value<>trim(edit1.text)  then
               MessageBox(handle, '查询无此记录！', '提示', mb_Ok);
          end;

          if edit2.text<>''then
          begin
            memo1.Text:='你的查询条件是:房间号='+ edit2.Text;
            queryado.Filtered:=false;
            queryado.Locate('房间号',trim(edit2.Text),[]);
            DBGrid1.SetFocus;
            if queryado.FieldByName('房间号').value<>trim(edit2.text)  then
               MessageBox(handle, '查询无此记录！', '提示', mb_Ok);
          end;
          if edit3.text<>''then
          begin
            memo1.Text:='你的查询条件是:入住时期='+''''+edit3.Text+'''';
            queryado.Filtered:=false;
            queryado.Locate('入住时期',trim(edit3.Text),[]);
            DBGrid1.SetFocus;
            if queryado.FieldByName('入住时期').value<>trim(edit3.text)  then
               MessageBox(handle, '查询无此记录！', '提示', mb_Ok);
          end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  edit2.Text:='';
  edit3.Text:='';
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  edit1.Text:='';
  edit3.Text:='';
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
  edit2.Text:='';
  edit1.Text:='';
end;

procedure TForm1.Button2Click(Sender: TObject);  //统计按纽对象
var
   sum1:real;
   s:string;
   bookmark1:tbookmark;
   begin
   sum1:=0.00;
   bookmark1:=queryado.getbookmark;
   queryado.DisableControls;
   queryado.First;
   while not queryado.Eof do
     begin
       sum1:=sum1+queryado.fieldbyname('结算费用').Value;
       queryado.next;
       end;
       queryado.GotoBookmark(bookmark1);
       queryado.FreeBookmark(bookmark1);
       queryado.EnableControls;
       str(sum1:8:2,s);
       memo2.Text:='目前为止宾馆总收入为：  '+s;



end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Query : TADOQuery;
begin
   TabSheet1.Visible := false  ;
   TabSheet2.Visible := false ;
   TabSheet3.Visible := false ;
   UserNam.Enabled := true ;
   Pass.Enabled := true ;
   BitBtn1.Enabled := true ;
   BitBtn2.Enabled := true ;
   login := false ;
   UserNam.Clear ;
   try
        Query := TADOQuery.Create(nil);
        Query.Connection := ADOConnection1 ;
        Query.SQL.Add('select Name from login ');
        Query.Open;
        if Query.RecordCount = 0 then
        begin
            MessageDlg('没有可以登陆的用户名',mtError,[mbok],0);
            Exit;
        end else
        begin
            Query.First ;
            while Query.Eof =false do
            begin
                UserNam.items.add(query.FieldByName('Name').asstring );
                Query.next;
            end
        end;
        Query.Close;
        Query.Free;
        UserNam.ItemIndex  :=0 ;
    except
        MessageDlg('连接数据库出错!',mtError,[mbok],0);
    end;
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
      if( login = false ) then
      begin
           PageControl1.ActivePage := TabSheet4;
      end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
results:variant;
begin
 // SFRH:=edit1.text;
  results:=loginado.lookup('Name',UserNam.Text ,'Password');{检索数据库中对应收费人号的密码项}   //先定位到数据库中edit1.text那条记录
  if results = Pass.Text then
    begin
      UserNam.Enabled := false ;
      Pass.Enabled := false ;
      BitBtn1.Enabled := false ;
      BitBtn2.Enabled := false ;
      login := true ;
      UserNam.Text := '' ;
      Pass.Text := '' ;
    end
  else
  begin
    UserNam.Text := '' ;
    Pass.Text := '' ;
     MessageBox(handle, '错误的用户名或密码！', '警告', mb_IconWarning + mb_Ok);
    Exit;
  end
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   close;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
   close;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
    UserNam.Text := '' ;
    Pass.Text := '' ;
end;

end.