unitphb.~pas

这是一个用DELPHI编写的信息系统,为KTV管理信息系统,对很多学习信息的同学有很大帮助

unit Unitphb;

interface

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

type
  Tpaihangbform = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    Image1: TImage;
    Image2: TImage;
    DBNavigator1: TDBNavigator;
    DBGrid2: TDBGrid;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DataSource1: TDataSource;
    Query1: TQuery;
    Edit1: TEdit;
    Button3: TButton;
    Edit2: TEdit;
    Button4: TButton;
    DataSource2: TDataSource;
    Query2: TQuery;
    Query3: TQuery;
    DataSource3: TDataSource;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  paihangbform: Tpaihangbform;

implementation

{$R *.dfm}

procedure Tpaihangbform.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tpaihangbform.Button1Click(Sender: TObject);
begin
DBGrid1.DataSource:=DataSource1;
query1.Open;
end;

procedure Tpaihangbform.Button3Click(Sender: TObject);
begin
DBGrid1.DataSource:=DataSource2;
with query2 do
begin
Parambyname('cname').AsString:=Edit1.text;
Prepare;
Query2.Open;
end;
end;

procedure Tpaihangbform.Button4Click(Sender: TObject);
begin
DBGrid2.DataSource:=DataSource3;
with Query3 do
begin
ParamByName('Gname').AsString:=Edit2.Text;
Prepare;
Query3.Open;
end;
end;

end.