unityd.~pas

来自「这是一个用DELPHI编写的信息系统,为KTV管理信息系统,对很多学习信息的同学」· ~PAS 代码 · 共 75 行

unit Unityd;

interface

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

type
  TyudingForm = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Image2: TImage;
    Image3: TImage;
    Label1: TLabel;
    Image4: TImage;
    Image5: TImage;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    MaskEdit1: TMaskEdit;
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yudingForm: TyudingForm;

implementation

{$R *.dfm}

procedure TyudingForm.Button4Click(Sender: TObject);
begin
close;
end;

procedure TyudingForm.Button2Click(Sender: TObject);
begin
table1.Delete;
end;

procedure TyudingForm.Button3Click(Sender: TObject);
begin
table1.Post;
end;

procedure TyudingForm.Button1Click(Sender: TObject);
begin
table1.Insert;
end;
procedure TyudingForm.MaskEdit1Change(Sender: TObject);
begin
Table1.Filter:='包间='+Maskedit1.Text;
Table1.Filtered:=true;
Table1.Open;
end;

end.