unit3.~pas

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

unit Unit3;

interface

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

type
  TqiantaiForm = class(TForm)
    Image1: TImage;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    qiantaiDBGrid1: TDBGrid;
    qiantaiTable1: TTable;
    qiantaiDataSource1: TDataSource;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    qiantaiDBGrid2: TDBGrid;
    qiantaiButton1: TButton;
    qiantaiButton2: TButton;
    qiantaiDBGrid3: TDBGrid;
    qiantaiTable3: TTable;
    qiantaiDataSource3: TDataSource;
    qiantaiDataSource2: TDataSource;
    qiantaiTable2: TTable;
    qiantaiButton3: TButton;
    qiantaiButton4: TButton;
    qiantaiButton5: TButton;
    qiantaiButton6: TButton;
    qiantaiButton7: TButton;
    procedure qiantaiButton7Click(Sender: TObject);
    procedure qiantaiButton3Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure qiantaiButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qiantaiForm: TqiantaiForm;

implementation

uses Unit4, Unit5;

{$R *.dfm}

procedure TqiantaiForm.qiantaiButton7Click(Sender: TObject);
begin
close;
end;

procedure TqiantaiForm.qiantaiButton3Click(Sender: TObject);
begin
kaitaiform.show;
end;

procedure TqiantaiForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if qiantaiTable3.FieldByName('状态').Asstring='占用' then
qiantaiDBGrid3.Canvas.Font.Color:=clred;
qiantaiDBGrid3.DefaultDrawColumnCell(rect,Datacol,column,State);
end;

procedure TqiantaiForm.qiantaiButton5Click(Sender: TObject);
begin
tuitaiform.show;
end;

end.