qitatixing.pas

健身会馆会员管理,实现了部分财务管理和,报表统计功能

unit qitatixing;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, DBCtrls, Mask, ComCtrls, Buttons;

type
  Tqitatixingfrm = class(TForm)
    Label4: TLabel;
    Label6: TLabel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    GroupBox4: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ADOQuery1: TADOQuery;
    ADOQuery1DSDesigner: TAutoIncField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TWideStringField;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    DBComboBox1: TDBComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit1Change(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qitatixingfrm: Tqitatixingfrm;

implementation
uses unit1, huiyuantixing;
{$R *.dfm}



procedure Tqitatixingfrm.BitBtn1Click(Sender: TObject);
begin

case ComboBox4.ItemIndex of
  0: DBEdit3.Text := datetostr(DateTimePicker1.Date );
  1: begin
       if CheckBox1.Checked then  DBEdit3.Text :='1' else DBEdit3.Text :='';
       if CheckBox2.Checked then  DBEdit3.Text :=DBEdit3.Text + '2';
       if CheckBox3.Checked then  DBEdit3.Text :=DBEdit3.Text + '3';
       if CheckBox4.Checked then  DBEdit3.Text :=DBEdit3.Text + '4';
       if CheckBox5.Checked then  DBEdit3.Text :=DBEdit3.Text + '5';
       if CheckBox6.Checked then  DBEdit3.Text :=DBEdit3.Text + '6';
       if CheckBox7.Checked then  DBEdit3.Text :=DBEdit3.Text + '0';
     end;
  2: DBEdit3.Text :='每月' + ComboBox3.Text + '日' ;
  3: DBEdit3.Text:='每年' + ComboBox1.Text + '月' + ComboBox2.Text + '日';
end;
DBEdit1.Text:= ComboBox4.Text;
ADOQuery1.Post ;
close;
MainForm.Button7.Click ;
end;

procedure Tqitatixingfrm.ComboBox4Change(Sender: TObject);
begin
case ComboBox4.ItemIndex of
  0: GroupBox1.BringToFront;
  1: GroupBox2.BringToFront;
  2: GroupBox3.BringToFront;
  3: GroupBox4.BringToFront;
end;
end;

procedure Tqitatixingfrm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tqitatixingfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
qitatixingfrm.Caption :='添加提醒内容';
ADOQuery1.Close ;
CheckBox1.Checked:=false;
CheckBox2.Checked:=false;
CheckBox3.Checked:=false;
CheckBox4.Checked:=false;
CheckBox5.Checked:=false;
CheckBox6.Checked:=false;
CheckBox7.Checked:=false;
ComboBox4.ItemIndex :=0;
GroupBox1.BringToFront;
end;



procedure Tqitatixingfrm.DBEdit1Change(Sender: TObject);
var
  k: Integer;
  I, Code: Integer;
begin
TRY
if DBEdit1.Text ='一次性' then
  begin
  ComboBox4.ItemIndex :=0;
  DateTimePicker1.Date :=strtodate(DBEdit3.Text);
  GroupBox1.BringToFront;
  end;
if DBEdit1.Text ='每周' then
  begin
  GroupBox2.BringToFront;
  Val(DBEdit3.Text, I, Code);
  if code = 0 then
     begin
       for k:=0 to Length(DBEdit3.Text) do
       begin
        //LTrim := Copy(DBEdit3.Text,i,1);
          case strtoint(Copy(DBEdit3.Text,k,1)) of
            1: CheckBox1.Checked:=true;
            2: CheckBox2.Checked:=true;
            3: CheckBox3.Checked:=true;
            4: CheckBox4.Checked:=true;
            5: CheckBox5.Checked:=true;
            6: CheckBox6.Checked:=true;
            7: CheckBox7.Checked:=true;
          end;
       end;
     end;
  ComboBox4.ItemIndex :=1;
  end;
if DBEdit1.Text ='每月' then
  begin
  GroupBox3.BringToFront;
  ComboBox4.ItemIndex :=2;
  end;
if DBEdit1.Text ='每年' then
  begin
  ComboBox4.ItemIndex :=3;
  GroupBox4.BringToFront;
  end;
except
exit;
end;
end;


end.