unit1.pas

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

    CheckBox2: TCheckBox;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    Button8: TButton;
    TabSheet26: TTabSheet;
    Label87: TLabel;
    Label88: TLabel;
    Label89: TLabel;
    Label90: TLabel;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    DateTimePicker19: TDateTimePicker;
    DateTimePicker20: TDateTimePicker;
    DateTimePicker21: TDateTimePicker;
    DateTimePicker22: TDateTimePicker;
    Button9: TButton;
    GroupBox1: TGroupBox;
    BitBtn59: TBitBtn;
    BitBtn60: TBitBtn;
    BitBtn61: TBitBtn;
    DBGrid15: TDBGrid;
    GroupBox3: TGroupBox;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    BitBtn67: TBitBtn;
    GroupBox6: TGroupBox;
    DBGrid14: TDBGrid;
    GroupBox7: TGroupBox;
    Label52: TLabel;
    DBEdit25: TDBEdit;
    Label53: TLabel;
    DBEdit26: TDBEdit;
    Label54: TLabel;
    DBEdit27: TDBEdit;
    Label55: TLabel;
    Button10: TButton;
    Button11: TButton;
    DBComboBox1: TDBComboBox;
    ADOTable3: TADOTable;
    ADOTable3id: TAutoIncField;
    ADOTable3DSDesigner: TWideStringField;
    ADOTable3DSDesigner2: TWideStringField;
    ADOTable3DSDesigner3: TWideStringField;
    ADOTable3DSDesigner4: TWideStringField;
    DataSource4: TDataSource;
    DBImage2: TDBImage;
    Splitter3: TSplitter;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    Panel33: TPanel;
    DBGrid11: TDBGrid;
    Splitter4: TSplitter;
    DBGrid18: TDBGrid;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    ADOQuery3DSDesigner: TWideStringField;
    ADOQuery3DSDesigner2: TFloatField;
    DataSource5: TDataSource;
    ADOQuery4DSDesigner: TWideStringField;
    ADOQuery4DSDesigner2: TFloatField;
    DataSource10: TDataSource;
    Label57: TLabel;
    PageControl2: TPageControl;
    TabSheet3: TTabSheet;
    Panel7: TPanel;
    Label32: TLabel;
    Label33: TLabel;
    Edit3: TEdit;
    Button4: TButton;
    ComboBox2: TComboBox;
    Button12: TButton;
    DBGrid3: TDBGrid;
    Panel8: TPanel;
    Label34: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn9: TBitBtn;
    ListBox1: TListBox;
    Label56: TLabel;
    Timer1: TTimer;
    Edit7: TEdit;
    Button13: TButton;
    Button14: TButton;
    Label58: TLabel;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TDateTimeField;
    ADOQuery1DSDesigner5: TWideStringField;
    ADOQuery1DSDesigner6: TWideStringField;
    ADOQuery1DSDesigner7: TFloatField;
    ADOQuery1DSDesigner8: TBCDField;
    ADOQuery1DSDesigner9: TIntegerField;
    ADOQuery1DSDesigner10: TIntegerField;
    ADOQuery1DSDesigner11: TWideStringField;
    ADOQuery1DSDesigner12: TWideStringField;
    ADOQuery1DSDesigner13: TWideStringField;
    ADOQuery1DSDesigner14: TWideStringField;
    ADOQuery1DSDesigner15: TWideStringField;
    ADOQuery1DSDesigner16: TWideStringField;
    ADOQuery1DSDesigner17: TDateTimeField;
    ADOQuery1DSDesigner18: TWideStringField;
    ADOQuery1EMAIL: TWideStringField;
    ADOQuery1DSDesigner19: TMemoField;
    ADOQuery1DSDesigner20: TDateTimeField;
    ADOQuery1DSDesigner21: TFloatField;
    ADOQuery1DSDesigner22: TWideStringField;
    ADOQuery1DSDesigner23: TBlobField;
    ADOQuery1DSDesigner24: TFloatField;
    Label91: TLabel;
    DBEdit28: TDBEdit;
    ADOTable4: TADOTable;
    ADOTable4DSDesigner: TMemoField;
    ADOTable4DSDesigner2: TMemoField;
    ADOTable4c1: TWideStringField;
    ADOTable4c2: TIntegerField;
    ADOTable4DSDesigner3: TWideStringField;
    Label92: TLabel;
    DBEdit29: TDBEdit;
    DataSource11: TDataSource;
    Button15: TButton;
    Button16: TButton;
    qianxiang: TADOTable;
    qianxiangDSDesigner: TMemoField;
    qianxiangDSDesigner2: TMemoField;
    qianxiangc1: TWideStringField;
    qianxiangc2: TIntegerField;
    qianxiangDSDesigner3: TWideStringField;
    qianxiangDSDesigner4: TFloatField;
    qianxiangDSDesigner5: TFloatField;
    DBText1: TDBText;
    DBEdit1: TDBEdit;
    ADOTable6: TADOTable;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image3MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image4MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image5MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image5MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image6MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image6MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image7MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image7MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image8MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image8MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image9MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image9MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image10MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image10MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image10MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Image10Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure WMNID(var msg:TMessage);message WM_NID;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure DBGrid17DblClick(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn67Click(Sender: TObject);
    procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
    procedure Button8Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure DBGrid17Exit(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure DBGrid3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel8MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure TabSheet28Show(Sender: TObject);
    function FindChild(const ANode: TTreeNode; const AText: string;const AStart: Integer = 0): boolean;
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure TreeView1DblClick(Sender: TObject);
    procedure FontNameChange(Sender: TObject);
    procedure PrintButtonClick(Sender: TObject);
    procedure CutButtonClick(Sender: TObject);
    procedure CopyButtonClick(Sender: TObject);
    procedure PasteButtonClick(Sender: TObject);
    procedure UndoButtonClick(Sender: TObject);
    procedure OpenButtonClick(Sender: TObject);
    procedure BoldButtonClick(Sender: TObject);
    procedure ItalicButtonClick(Sender: TObject);
    procedure UnderlineButtonClick(Sender: TObject);
    procedure LeftAlignClick(Sender: TObject);
    procedure CenterAlignClick(Sender: TObject);
    procedure RightAlignClick(Sender: TObject);
    procedure BulletsButtonClick(Sender: TObject);
    procedure FontSizeChange(Sender: TObject);
    procedure FileSave(Sender: TObject);
    procedure SetModified(Value: Boolean);
    procedure PerformFileOpen(const AFileName: string);
    procedure ShowHint(Sender: TObject);
    procedure GetFontNames;
    procedure SelectionChange(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    Function  FindNode(ParentNode:TTreeNode;NodeScript:integer): boolean;
    procedure BitBtn6Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure TabSheet18Show(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    //procedure WMCommand(Var msg : TWMCommand); message WM_Command;
      //处理托盘图标的右键菜单事件
    procedure DeleteMe(mDeleteDir: Boolean = False);
    procedure BitBtn14Click(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure TabSheet19Show(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure TabSheet7Show(Sender: TObject);
    procedure BitBtn20Click(Sender: TObject);
    procedure BitBtn22Click(Sender: TObject);
    procedure BitBtn25Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure TabSheet17Show(Sender: TObject);
    procedure TabSheet16Show(Sender: TObject);
    procedure TabSheet8Show(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure BitBtn28Click(Sender: TObject);
    procedure BitBtn26Click(Sender: TObject);
    procedure BitBtn31Click(Sender: TObject);
    procedure PageControl4Change(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure TabSheet9Show(Sender: TObject);
    procedure BitBtn32Click(Sender: TObject);
    procedure BitBtn30Click(Sender: TObject);
    procedure BitBtn37Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure TabSheet10Show(Sender: TObject);
    procedure TabSheet23Show(Sender: TObject);
    procedure BitBtn39Click(Sender: TObject);
    procedure BitBtn38Click(Sender: TObject);
    procedure BitBtn36Click(Sender: TObject);
    procedure BitBtn35Click(Sender: TObject);
    procedure BitBtn41Click(Sender: TObject);
    procedure BitBtn43Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure RadioButton9Click(Sender: TObject);
    procedure RadioButton10Click(Sender: TObject);
    procedure TabSheet32Show(Sender: TObject);
    procedure BitBtn48Click(Sender: TObject);
    procedure BitBtn47Click(Sender: TObject);
    procedure BitBtn44Click(Sender: TObject);
    procedure RadioButton13Click(Sender: TObject);
    procedure RadioButton11Click(Sender: TObject);
    procedure TabSheet27Show(Sender: TObject);
    procedure BitBtn63Click(Sender: TObject);
    procedure BitBtn62Click(Sender: TObject);
    procedure TabSheet25Show(Sender: TObject);
    procedure TabSheet12Show(Sender: TObject);
    procedure BitBtn53Click(Sender: TObject);
    procedure BitBtn55Click(Sender: TObject);
    procedure BitBtn49Click(Sender: TObject);
    procedure BitBtn50Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure TabSheet14Show(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure BitBtn59Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure BitBtn61Click(Sender: TObject);
    procedure BitBtn60Click(Sender: TObject);
    procedure DataSource3DataChange(Sender: TObject; Field: TField);
    procedure Button12Click(Sender: TObject);
    procedure Image9Click(Sender: TObject);
    procedure DBEdit17Change(Sender: TObject);
    procedure DBEdit18Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Button13Click(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit20Change(Sender: TObject); { 自己删除自己 }
  private
    FFileName: string;
    FUpdating: Boolean;
    procedure CheckFileSave;
    procedure SetFileName(const FileName: String);
    function CurrText: TTextAttributes;
    procedure SetupRuler;
    procedure UpdateCursorPos;
    { Private declarations }
   // FDragOfs: Integer;
   // FDragging: Boolean;
   // procedure GetFontNames;
   // procedure SetEditRect;
    procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
    //procedure PerformFileOpen(const AFileName: string);
   // procedure SetModified(Value: Boolean);
  public
  user:string;
  user_name:string;
  old_kahao:string;
//  C1:integer;
 // C2:integer;
  NotifyIcon:TNotifyIconData;
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation
uses shouzhi,load,chongzhi,huiyuanka,huiyuantixing,qitatixing,HardInfo,zhaopian,qianxiang;//,HTMLHELP_Decl;
var
  //jibieshu:integer;
  //jibiezhi:array [0..1000] of integer;
  //jibieming:array [0..1000] of string;
  ado9str:string;
  //old_kahao:string;
resourcestring
  //sSaveChanges = '是否保存对   的更改 to %s?'+ DBEdit23.text;
  sOverWrite = 'OK to overwrite %s';
  sUntitled = 'Untitled';
  sModified = 'Modified';
  sColRowInfo = 'Line: %3d   Col: %3d';

const
  MsgInformation = '信息';
  RulerAdj = 4/3;
  GutterWid = 6;