ux_qxsz.pas

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

unit ux_qxsz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Menus, ExtCtrls, ToolWin, Buttons, DBCtrls;

type
  Tx_qxsz = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    dtp1: TDateTimePicker;
    dtp2: TDateTimePicker;
    dtp3: TDateTimePicker;
    dtp4: TDateTimePicker;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Bevel2: TBevel;
    GroupBox1: TGroupBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    GroupBox2: TGroupBox;
    DBCheckBox15: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox23: TDBCheckBox;
    DBCheckBox24: TDBCheckBox;
    GroupBox4: TGroupBox;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    GroupBox3: TGroupBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox25: TDBCheckBox;
    DBCheckBox26: TDBCheckBox;
    DBCheckBox27: TDBCheckBox;
    DBCheckBox28: TDBCheckBox;
    DBCheckBox29: TDBCheckBox;
    DBCheckBox30: TDBCheckBox;
    DBCheckBox20: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    GroupBox5: TGroupBox;
    DBCheckBox31: TDBCheckBox;
    DBCheckBox32: TDBCheckBox;
    DBCheckBox33: TDBCheckBox;
    DBCheckBox34: TDBCheckBox;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  x_qxsz: Tx_qxsz;

implementation

uses u_main, ux_czy_xz, ux_czygl;

{$R *.DFM}

procedure Tx_qxsz.FormShow(Sender: TObject);
begin
  x_qxsz.caption:='操作权限设置--'
     +x_czygl.czy.fieldbyname('czyh').asstring+ x_czygl.czy.fieldbyname('czym').asstring;
 x_czygl.czy.edit;
 dtp1.date:=x_czygl.czy.fieldbyname('syrq1').asdatetime;
 dtp2.date:=x_czygl.czy.fieldbyname('syrq2').asdatetime;
 dtp3.time:=x_czygl.czy.fieldbyname('sysj1').asdatetime;
 dtp4.time:=x_czygl.czy.fieldbyname('sysj2').asdatetime;

end;
procedure Tx_qxsz.BitBtn1Click(Sender: TObject);
var
 c_czyh:string;
begin
 c_czyh:=x_czy_xz.czyh.text;
 x_czygl.czy.edit;
 x_czygl.czy.fieldbyname('syrq1').asdatetime:=dtp1.date;
 x_czygl.czy.fieldbyname('syrq2').asdatetime:=dtp2.date;
 x_czygl.czy.fieldbyname('sysj1').asdatetime:=dtp3.time;
 x_czygl.czy.fieldbyname('sysj2').asdatetime:=dtp4.time;
 x_czygl.czy.post;
 x_czygl.czy.filter:='czyh='+c_czyh;
 x_czygl.panel1.Visible:=true;
 close;
end;

procedure Tx_qxsz.BitBtn2Click(Sender: TObject);
begin
 x_czygl.czy.cancel;
 close;
end;

end.