commutationticket.pas

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

unit commutationTicket;

interface

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

type
  Tfm_commutationTicket = class(TForm)
    pal_comm: TPanel;
    pac_Comm: TPageControl;
    TabSheet1: TTabSheet;
    tbs_boxl: TTabSheet;
    pc_comm: TPageControl;
    tbs_comm_sale: TTabSheet;
    tbs_comm_sear: TTabSheet;
    Label1: TLabel;
    Label6: TLabel;
    ledt_comm_num: TLabeledEdit;
    ledt_comm_total: TLabeledEdit;
    cbx_comm_kind: TComboBox;
    ledt_price: TLabeledEdit;
    cbx_comm_scale: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    dt_comm_sear_s: TDateTimePicker;
    dt_comm_sear_e: TDateTimePicker;
    cbx_comm_op: TComboBox;
    ledt_comm_s_op: TLabeledEdit;
    btn_comm_sear: TBitBtn;
    cbx_comm_kind_s: TComboBox;
    btn_comm_add: TBitBtn;
    btn_comm_del: TBitBtn;
    btn_comm_modify: TBitBtn;
    sg_comm_sale: TStringGrid;
    tbs_com_setting: TTabSheet;
    ledt_comm_kind: TLabeledEdit;
    ledt_comm_price: TLabeledEdit;
    btn_commSet_add: TBitBtn;
    btn_commSet_del: TBitBtn;
    btn_commSet_modify: TBitBtn;
    sg_comm_setting: TStringGrid;
    aqr_sys: TADOQuery;
    acmd_sys: TADOCommand;
    grb_boxl_man: TGroupBox;
    sg_boxl_man: TStringGrid;
    grb_boxl_woman: TGroupBox;
    sg_boxl_woman: TStringGrid;
    cbx_comm_price: TComboBox;
    Label12: TLabel;
    Label13: TLabel;
    ledt_boxl_name: TLabeledEdit;
    cbx_boxl_sex: TComboBox;
    ledt_boxl_mobil: TLabeledEdit;
    ledt_boxl_phone: TLabeledEdit;
    ledt_boxl_carno: TLabeledEdit;
    ledt_boxl_addr: TLabeledEdit;
    meo_boxl: TMemo;
    gb_boxl: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    cbx_boxl: TComboBox;
    ledt_boxl_dCount: TLabeledEdit;
    ledt_boxl_date: TLabeledEdit;
    ledt_boxl_price: TLabeledEdit;
    dtp_boxl_date: TDateTimePicker;
    ledt_boxl_old: TLabeledEdit;
    btn_boxl_refresh: TBitBtn;
    btn_boxl_del: TBitBtn;
    btn_boxl_modify: TBitBtn;
    btn_boxl_add: TBitBtn;
    ledt_comm_op_total: TLabeledEdit;
    btn_boxl_clear: TBitBtn;
    rb_boxl_man: TRadioButton;
    rb_boxl_woman: TRadioButton;
    sg_comm_sear: TStringGrid;
    dt_comm_s_time: TDateTimePicker;
    dt_comm_s_etime: TDateTimePicker;
    btn_comm_refresh: TBitBtn;

  private

  public
    { Public declarations }
  end;

var
  fm_commutationTicket: Tfm_commutationTicket;

implementation

uses DataModule,  Main;

{$R *.dfm}

end.