reg.pas

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

unit reg;

interface

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

type
  Tfm_reg = class(TForm)
    ImageList1: TImageList;
    pal_reg: TPanel;
    pgc_reg: TPageControl;
    tsh_dengji: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox12: TGroupBox;
    LabeledEdit14: TLabeledEdit;
    LabeledEdit17: TLabeledEdit;
    PageControl2: TPageControl;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    GroupBox6: TGroupBox;
    LabeledEdit4: TLabeledEdit;
    GroupBox8: TGroupBox;
    LabeledEdit9: TLabeledEdit;
    TabSheet3: TTabSheet;
    GroupBox17: TGroupBox;
    LabeledEdit42: TLabeledEdit;
    GroupBox19: TGroupBox;
    DBGrid3: TDBGrid;
    GroupBox36: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    LabeledEdit36: TLabeledEdit;
    LabeledEdit37: TLabeledEdit;
    LabeledEdit38: TLabeledEdit;
    LabeledEdit39: TLabeledEdit;
    LabeledEdit40: TLabeledEdit;
    ComboBox10: TComboBox;
    ComboBox11: TComboBox;
    ComboBox12: TComboBox;
    LabeledEdit41: TLabeledEdit;
    BitBtn19: TBitBtn;
    GroupBox18: TGroupBox;
    LabeledEdit43: TLabeledEdit;
    PageControl3: TPageControl;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet4: TTabSheet;
    GroupBox28: TGroupBox;
    LabeledEdit46: TLabeledEdit;
    LabeledEdit47: TLabeledEdit;
    GroupBox9: TGroupBox;
    LabeledEdit22: TLabeledEdit;
    GroupBox13: TGroupBox;
    LabeledEdit26: TLabeledEdit;
    TabSheet5: TTabSheet;
    PageControl4: TPageControl;
    tsh_piao: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    cbx_xyzl: TComboBox;
    ledt_dj: TLabeledEdit;
    cbx_fkfs: TComboBox;
    cbx_bili: TComboBox;
    ledt_realM: TLabeledEdit;
    ledt_total_p: TLabeledEdit;
    sg_piao: TStringGrid;
    btn_p_add: TBitBtn;
    btn_p_modify: TBitBtn;
    btn_p_del: TBitBtn;
    tsh_wp: TTabSheet;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    ledt_daihao: TLabeledEdit;
    ledt_wp_num: TLabeledEdit;
    ledt_wp_total: TLabeledEdit;
    sg_wp: TStringGrid;
    btn_wp_add: TBitBtn;
    btn_wp_modify: TBitBtn;
    btn_wp_del: TBitBtn;
    ledt_sp_name: TLabeledEdit;
    ledt_wp_dj: TLabeledEdit;
    cbx_boxno: TComboBox;
    cbx_wp_bili: TComboBox;
    grp_box_man: TGroupBox;
    lsv_man: TListView;
    grp_box_woman: TGroupBox;
    Label19: TLabel;
    chk_join: TCheckBox;
    cbx_main_boxno: TComboBox;
    ledt_water_insert: TLabeledEdit;
    btn_ok: TBitBtn;
    ledt_water: TLabeledEdit;
    ledt_yaJin: TLabeledEdit;
    ledt_peoNum: TLabeledEdit;
    PageControl5: TPageControl;
    TabSheet13: TTabSheet;
    TabSheet15: TTabSheet;
    TabSheet16: TTabSheet;
    Memo1: TMemo;
    BitBtn25: TBitBtn;
    PageControl6: TPageControl;
    TabSheet17: TTabSheet;
    TabSheet18: TTabSheet;
    TabSheet19: TTabSheet;
    DBGrid10: TDBGrid;
    LabeledEdit50: TLabeledEdit;
    DBGrid11: TDBGrid;
    LabeledEdit51: TLabeledEdit;
    DBGrid12: TDBGrid;
    LabeledEdit52: TLabeledEdit;
    TabSheet20: TTabSheet;
    BitBtn20: TBitBtn;
    Label17: TLabel;
    ComboBox13: TComboBox;
    Label8: TLabel;
    Label9: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    ComboBox6: TComboBox;
    LabeledEdit27: TLabeledEdit;
    ComboBox7: TComboBox;
    ComboBox16: TComboBox;
    LabeledEdit28: TLabeledEdit;
    BitBtn13: TBitBtn;
    Label10: TLabel;
    Label11: TLabel;
    LabeledEdit15: TLabeledEdit;
    LabeledEdit16: TLabeledEdit;
    LabeledEdit18: TLabeledEdit;
    LabeledEdit19: TLabeledEdit;
    ComboBox8: TComboBox;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn11: TBitBtn;
    LabeledEdit29: TLabeledEdit;
    Label12: TLabel;
    Label13: TLabel;
    LabeledEdit20: TLabeledEdit;
    LabeledEdit21: TLabeledEdit;
    LabeledEdit23: TLabeledEdit;
    LabeledEdit24: TLabeledEdit;
    LabeledEdit25: TLabeledEdit;
    ComboBox9: TComboBox;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn27: TBitBtn;
    DBGrid4: TDBGrid;
    DBGrid7: TDBGrid;
    PageControl7: TPageControl;
    TabSheet10: TTabSheet;
    TabSheet14: TTabSheet;
    Label18: TLabel;
    Label22: TLabel;
    LabeledEdit30: TLabeledEdit;
    LabeledEdit31: TLabeledEdit;
    LabeledEdit32: TLabeledEdit;
    LabeledEdit33: TLabeledEdit;
    ComboBox14: TComboBox;
    BitBtn10: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn16: TBitBtn;
    LabeledEdit34: TLabeledEdit;
    BitBtn17: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn18: TBitBtn;
    Label23: TLabel;
    acmd_sys: TADOCommand;
    aqr_sys: TADOQuery;
    ledt_cons_oldNum: TLabeledEdit;
    LabeledEdit1: TLabeledEdit;
    BitBtn1: TBitBtn;
    LabeledEdit3: TLabeledEdit;
    Label24: TLabel;
    ComboBox1: TComboBox;
    TabSheet1: TTabSheet;
    BitBtn2: TBitBtn;
    Label25: TLabel;
    ComboBox2: TComboBox;
    DBGrid8: TDBGrid;
    DBGrid13: TDBGrid;
    DBGrid14: TDBGrid;
    DBGrid15: TDBGrid;
    DBGrid9: TDBGrid;
    DBGrid5: TDBGrid;
    DBGrid6: TDBGrid;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid16: TDBGrid;
    DBGrid17: TDBGrid;
    DBGrid18: TDBGrid;
    lsv_woman: TListView;
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure TabSheet5Show(Sender: TObject);
    procedure TabSheet20Show(Sender: TObject);
    procedure ledt_waterKeyPress(Sender: TObject; var Key: Char);
    procedure cbx_xyzlChange(Sender: TObject);
    procedure cbx_fkfsChange(Sender: TObject);
    procedure cbx_biliChange(Sender: TObject);
    procedure sg_piaoClick(Sender: TObject);
    procedure ledt_yaJinExit(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  fm_reg: Tfm_reg;
  larr_box : array of string; //动态数组，存储要登记的手牌号

implementation

uses DataModule,  Main;

{$R *.dfm}

procedure Tfm_reg.TabSheet2Show(Sender: TObject);
begin
  fm_main.tbtn_refresh.Visible := true;
  fm_main.tbtn_refresh_ge.Visible := true;
end;

procedure Tfm_reg.TabSheet3Show(Sender: TObject);
begin
  fm_main.tbtn_refresh.Visible := true;
  fm_main.tbtn_refresh_ge.Visible := true;
end;

procedure Tfm_reg.TabSheet4Show(Sender: TObject);
begin
  fm_main.tbtn_refresh.Visible := true;
  fm_main.tbtn_refresh_ge.Visible := true;
end;

procedure Tfm_reg.TabSheet5Show(Sender: TObject);
begin
  fm_main.tbtn_refresh.Visible := false;
  fm_main.tbtn_refresh_ge.Visible := false;
end;

procedure Tfm_reg.TabSheet20Show(Sender: TObject);
begin
  fm_main.tbtn_refresh.Visible := false;
  fm_main.tbtn_refresh_ge.Visible := false;
end;

procedure Tfm_reg.ledt_waterKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key = #13) then key :=#0;
end;

procedure Tfm_reg.cbx_xyzlChange(Sender: TObject);
begin
  if (length(larr_box) = 0) and (Trim(sg_piao.Cells[0,1]) = '') then
  begin
    Application.MessageBox('请选择手牌！','信息',Mb_OK + MB_IconInformation);
    cbx_xyzl.ItemIndex := -1;
    lsv_man.SetFocus;
    Exit;
  end;
  ledt_realM.Text := '';cbx_bili.Clear; cbx_fkfs.ItemIndex := -1;
end;

procedure Tfm_reg.cbx_fkfsChange(Sender: TObject);
var
    i : integer;
    lf_bath_discount : double;
begin
    if Trim(ledt_dj.Text) = '' then
    begin
        Application.MessageBox('请选择洗浴种类！','信息',Mb_OK + MB_IconInformation);
        cbx_fkfs.ItemIndex := -1;
        cbx_xyzl.SetFocus;
        exit;
    end;
    if (Trim(cbx_fkfs.Text)='月票') or (Trim(cbx_fkfs.Text)='招待票') or (Trim(cbx_fkfs.Text)='免票') then
    begin
        cbx_bili.Clear;
        cbx_bili.Items.Add('0');
        cbx_bili.ItemIndex := 0;
        ledt_dj.Text := '0.00';
        ledt_realM.Text := ledt_dj.Text;
    end;
    if trim(cbx_fkfs.Text)='折价票' then
    begin
        cbx_bili.Items.Clear;
        for i:=20 downto 1 do cbx_bili.Items.Add(intToStr(i*5));
        cbx_bili.ItemIndex := 0;
        //proc_getBath_Price ; //取得洗浴价格
        cbx_bili.SetFocus
    end;
    if trim(cbx_fkfs.Text)='现金' then
    begin
        cbx_bili.Items.Clear;
        cbx_bili.Items.Add('100');
        cbx_bili.ItemIndex := 0;
        //proc_getBath_Price ; //取得洗浴价格
        btn_p_add.SetFocus;
    end;
    if trim(cbx_bili.Text)='' then lf_bath_discount := 0 else lf_bath_discount := strTofloat(trim(cbx_bili.Text));
    ledt_realM.Text:=formatFloat('0.00',strToFloat(trim(ledt_dj.Text)) * lf_bath_discount / 100);
end;

procedure Tfm_reg.cbx_biliChange(Sender: TObject);
var
  lf_bath_discount : double; //洗浴单价
begin
  if Trim(ledt_dj.Text) = '' then
  begin
      Application.MessageBox('请选择洗浴种类！','信息',Mb_OK + MB_IconInformation);
      cbx_bili.ItemIndex := -1;
      cbx_xyzl.SetFocus;
      exit;
  end;
  if trim(cbx_bili.Text)='' then lf_bath_discount := 0 else lf_bath_discount := strTofloat(trim(cbx_bili.Text));
  ledt_realM.Text:=formatFloat('0.00',strToFloat(trim(ledt_dj.Text)) * lf_bath_discount / 100);
end;

procedure Tfm_reg.sg_piaoClick(Sender: TObject);
begin
  if (Trim(sg_piao.Cells[0,1]) = '') then exit;
  try
    With sg_piao do
    begin
      cbx_xyzl.ItemIndex := cbx_xyzl.Items.IndexOf(Trim(Cells[0,Row]));
      ledt_dj.Text := Trim(Cells[1,Row]);
      cbx_fkfs.ItemIndex := cbx_fkfs.Items.IndexOf(Trim(Cells[2,Row]));
      cbx_fkfsChange(nil);
      cbx_bili.ItemIndex := cbx_bili.Items.IndexOf(Trim(Cells[3,Row]));
      ledt_realM.Text := Trim(Cells[4,Row]);
      cbx_xyzl.SetFocus;
    end;
  except
  end;
end;

procedure Tfm_reg.ledt_yaJinExit(Sender: TObject);
begin
  if not(Trim(ledt_yaJin.Text) = '') then
  ledt_yaJin.Text := formatFloat('0.00',StrToFloat(Trim(ledt_yaJin.Text)));
end;

end.