zcpass.pas

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· PAS 代码 · 共 62 行

unit zcpass;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, Db, Mask, DBCtrls, DBTables;

type
  Tzc = class(TForm)
    Label1: TLabel;
    OKBtn: TButton;
    CancelBtn: TButton;
    Query1: TQuery;
    UpdateSQL1: TUpdateSQL;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Query1GS_OFFICE: TStringField;
    Query1ID: TIntegerField;
    Query1LOCK_FLAG: TFloatField;
    Query1User_flag: TFloatField;
    procedure FormActivate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zc: Tzc;

implementation
 uses rjsmain;
{$R *.DFM}

procedure Tzc.FormActivate(Sender: TObject);
begin
  query1.Active:=true;
  query1.Edit;
  dbedit1.SetFocus;
end;

procedure Tzc.OKBtnClick(Sender: TObject);
begin
  query1.ApplyUpdates;
  dwmc:=Query1GS_OFFICE.Value;
//  form2.Panel2.Caption:=gsname;
  query1.Active:=false;
  zc.Close;
end;

procedure Tzc.CancelBtnClick(Sender: TObject);
begin
  query1.Cancel;
  query1.Close;
  zc.Close;
end;

end.