ug_ckxx.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

unit ug_ckxx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, DBLookup, ComCtrls, StdCtrls, DBCtrls, Mask, ExtCtrls,u_main,
  Db, DBTables;

type
  Tg_ckxx = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label6: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label10: TLabel;
    bh: TDBEdit;
    dbxm: TDBEdit;
    dh: TDBEdit;
    ch: TDBEdit;
    sj: TDBEdit;
    dwmc: TDBEdit;
    dwdz: TDBEdit;
    khyh: TDBEdit;
    zh: TDBEdit;
    yb: TDBEdit;
    zw: TDBEdit;
    xfcs: TDBEdit;
    xfze: TDBEdit;
    zjm: TDBEdit;
    SpeedButton1: TSpeedButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    ckzl: TTable;
    ckzlCkbh: TStringField;
    ckzlDwmc: TStringField;
    ckzlZjm: TStringField;
    ckzlXfcs: TIntegerField;
    ckzlXfze: TFloatField;
    ckzlXydj: TStringField;
    ckzlDwxz: TStringField;
    ckzldwxz1: TStringField;
    ckzlDwdz: TStringField;
    ckzlYzbm: TStringField;
    ckzlKhyh: TStringField;
    ckzlZh: TStringField;
    ckzlDbxm: TStringField;
    ckzlXb: TStringField;
    ckzlDh: TStringField;
    ckzlChh: TStringField;
    ckzlSj: TStringField;
    ckzlEmail: TStringField;
    ckzlCsrq: TDateTimeField;
    ckzlQldj: TStringField;
    ckzlZw: TStringField;
    d_ckzl: TDataSource;
    dwxz: TTable;
    dwxzBh: TStringField;
    dwxzDwxz: TStringField;
    d_dwxz: TDataSource;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  g_ckxx: Tg_ckxx;

implementation

{$R *.DFM}

procedure Tg_ckxx.SpeedButton1Click(Sender: TObject);
begin
  close;
end;

procedure Tg_ckxx.FormShow(Sender: TObject);
begin
 if not dwxz.Active then dwxz.Active:=true;
 if not ckzl.Active then ckzl.Active:=true;
 ckzl.filter:='ckbh='+s_ckbh;
end;

procedure Tg_ckxx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 g_ckxx:=NIL;
end;

end.