syssetting.pas

一个非常好的桑拿浴管理系统

unit sysSetting;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, CheckLst,
  DB, ADODB;

type
  Tfm_sysSetting = class(TForm)
    pal_sys: TPanel;
    pac_sys: TPageControl;
    TabSheet1: TTabSheet;
    tbs_bath: TTabSheet;
    tas_box: TTabSheet;
    pgc_ser: TPageControl;
    tbs_sys_ser_kind: TTabSheet;
    ledt_ser_kind_name: TLabeledEdit;
    btn_sys_ser_add: TBitBtn;
    btn_sys_ser_del: TBitBtn;
    btn_sys_ser_modify: TBitBtn;
    tbs_sys_ser_name: TTabSheet;
    tsb_sf: TTabSheet;
    Label1: TLabel;
    cbx_ser_kind: TComboBox;
    ledt_ser_name: TLabeledEdit;
    ledt_ser_sym: TLabeledEdit;
    ledt_price: TLabeledEdit;
    btn_ser_add: TBitBtn;
    btn_ser_del: TBitBtn;
    btn_ser_modify: TBitBtn;
    btn_sf_add: TBitBtn;
    btn_sf_del: TBitBtn;
    btn_sf_modify: TBitBtn;
    ledt_sf_name: TLabeledEdit;
    ledt_sf_symbol: TLabeledEdit;
    ledt_bath_name: TLabeledEdit;
    ledt_bath_price: TLabeledEdit;
    btn_bath_add: TBitBtn;
    btn_bath_del: TBitBtn;
    btn_bath_modify: TBitBtn;
    GroupBox5: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    lb_box_pman: TLabel;
    lb_box_pwoman: TLabel;
    ledt_box_pman: TLabeledEdit;
    ledt_box_pwoman: TLabeledEdit;
    GroupBox6: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    lb_box_bman: TLabel;
    lb_box_bwoman: TLabel;
    ledt_box_bman: TLabeledEdit;
    ledt_box_bwoman: TLabeledEdit;
    btn_pman_ok: TBitBtn;
    btn_pwoman_ok: TBitBtn;
    btn_lman_ok: TBitBtn;
    btn_lwoman_ok: TBitBtn;
    tbs_ware: TTabSheet;
    tas_arre: TTabSheet;
    ledt_arre_comp: TLabeledEdit;
    ledt_arre_mobil: TLabeledEdit;
    ledt_arre_phone: TLabeledEdit;
    ledt_arre_address: TLabeledEdit;
    me_remark: TMemo;
    Label3: TLabel;
    btn_arre_add: TBitBtn;
    btn_arre_del: TBitBtn;
    btn_arre_modify: TBitBtn;
    btn_arre_print: TBitBtn;
    ts_user: TTabSheet;
    pgc_user: TPageControl;
    ts_user_user: TTabSheet;
    ts_user_qx: TTabSheet;
    ledt_name: TLabeledEdit;
    ledt_key: TLabeledEdit;
    ledt_rekey: TLabeledEdit;
    btn_add: TBitBtn;
    btn_del: TBitBtn;
    btn_modfy: TBitBtn;
    Label4: TLabel;
    cbx_user: TComboBox;
    RichEdit1: TRichEdit;
    ckl_main: TCheckListBox;
    ckl_sec_main: TCheckListBox;
    Label15: TLabel;
    Label16: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    btn_ok: TBitBtn;
    acmd_sys: TADOCommand;
    aqr_sys: TADOQuery;
    sg_user: TStringGrid;
    btn_refresh: TBitBtn;
    cbx_key: TComboBox;
    ts_sys_qt: TTabSheet;
    btn_qt_ok: TBitBtn;
    grb_qt: TGroupBox;
    chk_ticket: TCheckBox;
    chk_wp: TCheckBox;
    RichEdit2: TRichEdit;
    sg_sys_ser_kind: TStringGrid;
    sg_ser_name: TStringGrid;
    sg_sys_sf: TStringGrid;
    sg_bath: TStringGrid;
    sg_arre: TStringGrid;
    Bevel3: TBevel;
    btn_sys_company: TBitBtn;
    ledt_company: TLabeledEdit;
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    ledt_ware_symbol: TLabeledEdit;
    btn_search: TBitBtn;
    btn_ware_all: TBitBtn;
    btn_ware_print: TBitBtn;
    sg_ware: TStringGrid;
    ledt_ware_kind_s: TLabeledEdit;
    TabSheet4: TTabSheet;
    LabeledEdit1: TLabeledEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label2: TLabel;
    ComboBox1: TComboBox;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    BitBtn4: TBitBtn;
    ComboBox2: TComboBox;
    Label8: TLabel;
    ckl_sec_comm: TCheckListBox;
    ckl_sec_finace: TCheckListBox;
    ckl_sec_sys: TCheckListBox;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;

  public
    { Public declarations }
  end;

var
  fm_sysSetting: Tfm_sysSetting;

implementation

uses Main, DataModule, commutationTicket;

{$R *.dfm}



end.