gzryglut.~pas

宾馆客房管理系统,功能强大,界面美观,全部delphi源代码

unit gzryglut;

interface

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

type
  Tgzryglfm = class(TForm)
    PageControl1: TPageControl;
    gzygl: TTabSheet;
    czygl: TTabSheet;
    DataSource1: TDataSource;
    gzyado: TADOQuery;
    Panel1: TPanel;
    Label1: TLabel;
    xm: TLabeledEdit;
    gz: TComboBox;
    zjbt: TBitBtn;
    xgbt: TBitBtn;
    scbt: TBitBtn;
    sxbt: TBitBtn;
    gbbt: TBitBtn;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Panel4: TPanel;
    czyado: TADOQuery;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    DBNavigator1: TDBNavigator;
    procedure FormCreate(Sender: TObject);
    procedure zjbtClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure xgbtClick(Sender: TObject);
    procedure scbtClick(Sender: TObject);
    procedure gbbtClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gzryglfm: Tgzryglfm;

implementation

{$R *.dfm}

procedure Tgzryglfm.FormCreate(Sender: TObject);
begin
 xm.Text:='';
 gz.Text:='';
 with gzyado do
   begin
     close;
     sql.Clear;
     sql.Add('select * from 工作员表 order by 编号');
     open;
   end;
   with czyado do
   begin
     close;
     sql.Clear;
     sql.Add('select * from 操作员表 order by 编号');
     open;
   end;
end;

procedure Tgzryglfm.zjbtClick(Sender: TObject);
begin
 if xm.Text='' then
   begin
     showmessage('请输入姓名');
     exit;
   end;
   if gz.Text='' then
   begin
     showmessage('请选择工种');
     exit;
   end;
   with gzyado do
     begin
      close;
      sql.Clear;
      sql.Add('insert into 工作员表(姓名,工种)  values(:xm,:gz)');
      Parameters.ParamByName('xm').Value:=trim(xm.Text);
      Parameters.ParamByName('gz').Value:=trim(gz.Text);
      execsql;
      showmessage('增加成功');
     end;
     sxbt.Click;
end;

procedure Tgzryglfm.DBGrid1CellClick(Column: TColumn);
begin
xm.Text:=gzyado.fieldbyname('姓名').AsString;
gz.Text:=gzyado.fieldbyname('工种').AsString;
end;

procedure Tgzryglfm.xgbtClick(Sender: TObject);
begin
if xm.Text='' then
   begin
     showmessage('请输入姓名');
     exit;
   end;
   if gz.Text='' then
   begin
     showmessage('请选择工种');
     exit;
   end;
   with gzyado do
     begin
       close;
       sql.Clear;
       sql.Add('update 工作员表 set 工种=:gz where 姓名=:xm');
       Parameters.ParamByName('xm').Value:=trim(xm.Text);
      Parameters.ParamByName('gz').Value:=trim(gz.Text);
       execsql;
       showmessage('修改成功');

     end;
     sxbt.Click;
end;

procedure Tgzryglfm.scbtClick(Sender: TObject);
begin
   if xm.Text='' then
   begin
     showmessage('请输入姓名');
     exit;
   end;
    with gzyado do
     begin
       close;
       sql.Clear;
       sql.Add('delete from 工作员表 where 姓名=:xm');
       Parameters.ParamByName('xm').Value:=trim(xm.Text);
       execsql;
       showmessage('删除成功');

     end;
     sxbt.Click;
end;

procedure Tgzryglfm.gbbtClick(Sender: TObject);
begin
close;
end;

end.