📄 main.pas
字号:
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db,DBTables,fcImage, fcimageform, fcStatusBar, fcLabel, fcOutlookList, fcButton,
fcImgBtn, fcShapeBtn, ExtCtrls, fcClearPanel, fcButtonGroup, fcOutlookBar,
ImgList, ComCtrls, StdCtrls,FileCtrl, Mask, DBCtrls, fcImager, Grids, DBGrids,
jpeg, Gauges, wwdbedit, Wwdotdot, Wwdbcomb, wwSpeedButton, wwDBNavigator,
wwclearpanel, wwdbdatetimepicker, wwriched, ToolEdit, Buttons, DBCGrids,
Wwdbigrd, Wwdbgrid, wwdblook,QuickRpt;
const
//费率
IntegrateRate:Integer = 10;
StockRate:Integer = 40;
EducationRate:Integer =20;
VideoRate:Integer = 10;
MyAlias = 'QhyxDatabase';
//服务信息记录
type
ServRecord = Record
SName,SID:String;
SYear,SMonth,SDay,Stime,SFee:Integer;
end;
PrintDataRecord = Record
PStartDate,PEndDate:TDateTime;
PFee,PServID:Integer;
PMan:String;
end;
PrintUserRecord = Record
PName,PIDCard,PAddr,PPhone:String;
PUserCard,PCardNo,PAgent,PZip:String;
PResistDate:TDateTime;
end;
type
TFormMain = class(TForm)
StatusBar: TfcStatusBar;
PageControl: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet7: TTabSheet;
OutlookBar: TfcOutlookBar;
OutlookList1: TfcOutlookList;
OutlookBtn1: TfcShapeBtn;
OutlookList2: TfcOutlookList;
OutlookBtn2: TfcShapeBtn;
OutlookList3: TfcOutlookList;
OutlookBtn3: TfcShapeBtn;
Image1: TImage;
ComboID1: TComboBox;
EdtPwd1: TEdit;
Label1: TLabel;
Label2: TLabel;
ImageList1: TImageList;
Image2: TImage;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
ComboID2: TComboBox;
EdtPwd2: TEdit;
EdtPwd3: TEdit;
ComboRight: TComboBox;
Image4: TImage;
fcLabel7: TfcLabel;
Image3: TImage;
Label26: TLabel;
Label27: TLabel;
Label30: TLabel;
Image5: TImage;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label24: TLabel;
Label25: TLabel;
EdtModify1: TwwDBEdit;
EdtModify4: TwwDBEdit;
EdtModify3: TwwDBEdit;
EdtModify6: TwwDBEdit;
EdtModify5: TwwDBEdit;
Lookup1: TEdit;
Lookup2: TEdit;
Lookup3: TEdit;
Lookup4: TEdit;
Lookup5: TComboBox;
Label20: TLabel;
EdtRecover: TDirectoryEdit;
fcLabel8: TfcLabel;
BtnLogOK: TBitBtn;
BtnLogCancel: TBitBtn;
EdtModify2: TwwDBEdit;
Label33: TLabel;
TabSheet6: TTabSheet;
Image6: TImage;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
EdtOldPwd: TEdit;
EdtNewPwd: TEdit;
EdtID: TEdit;
Label37: TLabel;
EdtNewPwdOnce: TEdit;
BtnLookupOK: TBitBtn;
BtnLookupCancel: TBitBtn;
BtnBackupOK: TBitBtn;
BtnBackupCancel: TBitBtn;
BtnSysOK1: TBitBtn;
BtnSysCancel1: TBitBtn;
BtnSysOK: TBitBtn;
BtnSysCancel: TBitBtn;
TabSheet8: TTabSheet;
Image7: TImage;
LookupT3: TEdit;
LookupT1: TEdit;
LookupT2: TEdit;
BtnLookupTOK: TBitBtn;
BtnLookupTCancel: TBitBtn;
fcLabel11: TfcLabel;
RadioButton3: TRadioButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
TabSheet9: TTabSheet;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label28: TLabel;
BtnNew2: TfcShapeBtn;
BtnNew4: TfcShapeBtn;
BtnNew3: TfcShapeBtn;
Label91: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Image10: TImage;
BtnEx1: TfcShapeBtn;
BtnEx2: TfcShapeBtn;
EdtEx1: TwwDBEdit;
EdtEx4: TwwDBEdit;
EdtEx3: TwwDBEdit;
EdtEx6: TwwDBEdit;
EdtEx5: TwwDBEdit;
BtnEx3: TfcShapeBtn;
EdtEx2: TwwDBEdit;
Label103: TLabel;
BtnEx5: TfcShapeBtn;
Image11: TImage;
Image12: TImage;
Image9: TImage;
Image13: TImage;
Image14: TImage;
Image15: TImage;
Image16: TImage;
Image17: TImage;
MemoEx1: TDBMemo;
MemoModify1: TDBMemo;
GroupBox9: TGroupBox;
LblEx11: TLabel;
LblEx12: TLabel;
LblEx13: TLabel;
LblEx21: TLabel;
LblEx22: TLabel;
LblEx23: TLabel;
LblEx31: TLabel;
LblEx32: TLabel;
LblEx33: TLabel;
LblEx41: TLabel;
LblEx42: TLabel;
LblEx43: TLabel;
CheckEx1: TCheckBox;
CheckEx3: TCheckBox;
CheckEx2: TCheckBox;
CheckEx4: TCheckBox;
DateEx11: TwwDBDateTimePicker;
DateEx12: TwwDBDateTimePicker;
DateEx21: TwwDBDateTimePicker;
DateEx22: TwwDBDateTimePicker;
DateEx31: TwwDBDateTimePicker;
DateEx32: TwwDBDateTimePicker;
DateEx41: TwwDBDateTimePicker;
DateEx42: TwwDBDateTimePicker;
GroupBox3: TGroupBox;
LabelNew11: TLabel;
LabelNew12: TLabel;
LabelNew13: TLabel;
LabelNew21: TLabel;
LabelNew22: TLabel;
LabelNew23: TLabel;
LabelNew31: TLabel;
LabelNew32: TLabel;
LabelNew33: TLabel;
LabelNew41: TLabel;
LabelNew42: TLabel;
LabelNew43: TLabel;
CheckNew1: TCheckBox;
CheckNew3: TCheckBox;
CheckNew2: TCheckBox;
CheckNew4: TCheckBox;
TabSheet10: TTabSheet;
Label59: TLabel;
Label60: TLabel;
Label61: TLabel;
Label62: TLabel;
Label63: TLabel;
Label64: TLabel;
Label65: TLabel;
Label66: TLabel;
Label67: TLabel;
Label68: TLabel;
Image8: TImage;
Label69: TLabel;
wwDBEdit5: TwwDBEdit;
wwDBEdit13: TwwDBEdit;
wwDBEdit22: TwwDBEdit;
wwDBEdit23: TwwDBEdit;
wwDBEdit24: TwwDBEdit;
BtnLookupS4: TfcShapeBtn;
wwDBEdit25: TwwDBEdit;
DBMemo4: TDBMemo;
EdtFee1: TEdit;
EdtFee2: TEdit;
EdtFee3: TEdit;
EdtFee4: TEdit;
EdtNew1: TEdit;
EdtNew2: TEdit;
EdtNew3: TEdit;
EdtNew5: TEdit;
EdtNew4: TEdit;
EdtNew6: TEdit;
EdtNew8: TEdit;
ComboNew1: TComboBox;
EdtNew7: TEdit;
Label12: TLabel;
wwDBEdit1: TwwDBEdit;
wwDBGrid1: TwwDBGrid;
MemoNew1: TMemo;
DateNew11: TwwDBDateTimePicker;
DateNew12: TwwDBDateTimePicker;
DateNew21: TwwDBDateTimePicker;
DateNew22: TwwDBDateTimePicker;
DateNew31: TwwDBDateTimePicker;
DateNew32: TwwDBDateTimePicker;
DateNew41: TwwDBDateTimePicker;
DateNew42: TwwDBDateTimePicker;
BtnNew1: TfcShapeBtn;
EdtEx8: TwwDBEdit;
EdtEx7: TwwDBEdit;
BtnModify1: TBitBtn;
BtnModify3: TBitBtn;
EdtExFee1: TEdit;
EdtExFee2: TEdit;
EdtExFee3: TEdit;
EdtExFee4: TEdit;
EdtEx9: TEdit;
ComboModify1: TDBLookupComboBox;
Panel4: TPanel;
RBtnupdate3: TRadioButton;
RBtnupdate2: TRadioButton;
RBtnUpdate1: TRadioButton;
Edtupdate1: TEdit;
EdtUpdate2: TEdit;
Edtupdate3: TEdit;
BtnModify2: TBitBtn;
BtnModify5: TBitBtn;
Lookup6: TwwDBDateTimePicker;
Lookup7: TwwDBDateTimePicker;
RBtnLookup1: TRadioButton;
RBtnLookup2: TRadioButton;
RBtnLookup3: TRadioButton;
RBtnLookup4: TRadioButton;
RBtnLookup6: TRadioButton;
RBtnLookup5: TRadioButton;
wwDBEdit2: TwwDBEdit;
BtnLookupS3: TfcShapeBtn;
EdtBackup: TDirectoryEdit;
ProgressBar1: TProgressBar;
Edit1: TEdit;
BtnModify4: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure OutlookList1Items4Click(OutlookList: TfcCustomOutlookList;
Item: TfcOutlookListItem);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure OutlookList1Items0Click(OutlookList: TfcCustomOutlookList;
Item: TfcOutlookListItem);
procedure OutlookList1Items1Click(OutlookList: TfcCustomOutlookList;
Item: TfcOutlookListItem);
procedure OutlookList1Items2Click(OutlookList: TfcCustomOutlookList;
Item: TfcOutlookListItem);
procedure OutlookBtn1Click(Sender: TObject);
procedure OutlookBtn2Click(Sender: TObject);
procedure OutlookBtn3Click(Sender: TObject);
procedure OutlookList2Items0Click(OutlookList: TfcCustomOutlookList;
Item: TfcOutlookListItem);
procedure OutlookList2Items1Click(OutlookList: TfcCustomOutlookList;
Item: TfcOutlookListItem);
procedure OutlookList2Items2Click(OutlookList: TfcCustomOutlookList;
Item: TfcOutlookListItem);
procedure OutlookList2Items3Click(OutlookList: TfcCustomOutlookList;
Item: TfcOutlookListItem);
procedure OutlookList3Items0Click(OutlookList: TfcCustomOutlookList;
Item: TfcOutlookListItem);
procedure OutlookList3Items1Click(OutlookList: TfcCustomOutlookList;
Item: TfcOutlookListItem);
procedure TabSheet5Show(Sender: TObject);
procedure ComboID1KeyPress(Sender: TObject; var Key: Char);
procedure EdtPwd1KeyPress(Sender: TObject; var Key: Char);
procedure ComboID1Exit(Sender: TObject);
procedure BtnLookupOKClick(Sender: TObject);
procedure BtnLogOKClick(Sender: TObject);
procedure BtnLogCancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BtnSysOKClick(Sender: TObject);
procedure ComboID2Change(Sender: TObject);
procedure BtnSysOK1Click(Sender: TObject);
procedure BtnSysCancel1Click(Sender: TObject);
procedure BtnSysCancelClick(Sender: TObject);
procedure TabSheet8Show(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure CheckNew1Click(Sender: TObject);
procedure TabSheet3Show(Sender: TObject);
procedure DateNew12Exit(Sender: TObject);
procedure DateNew22Exit(Sender: TObject);
procedure DateNew32Exit(Sender: TObject);
procedure DateNew42Exit(Sender: TObject);
procedure EdtFee1Change(Sender: TObject);
procedure BtnNew1Click(Sender: TObject);
procedure BtnNew2Click(Sender: TObject);
procedure BtnNew4Click(Sender: TObject);
procedure BtnLookupTOKClick(Sender: TObject);
procedure CheckEx1Click(Sender: TObject);
procedure TabSheet9Show(Sender: TObject);
procedure DateEx12CloseUp(Sender: TObject);
procedure DateEx22CloseUp(Sender: TObject);
procedure DateEx32CloseUp(Sender: TObject);
procedure DateEx42CloseUp(Sender: TObject);
procedure EdtExFee1Change(Sender: TObject);
procedure BtnEx1Click(Sender: TObject);
procedure BtnModify1Click(Sender: TObject);
procedure BtnModify2Click(Sender: TObject);
procedure BtnModify3Click(Sender: TObject);
procedure RBtnUpdate1Click(Sender: TObject);
procedure RBtnupdate2Click(Sender: TObject);
procedure RBtnupdate3Click(Sender: TObject);
procedure BtnModify5Click(Sender: TObject);
procedure RBtnLookup1Click(Sender: TObject);
procedure RBtnLookup5Click(Sender: TObject);
procedure RBtnLookup6Click(Sender: TObject);
procedure BtnLookupCancelClick(Sender: TObject);
procedure BtnLookupTCancelClick(Sender: TObject);
procedure BtnEx2Click(Sender: TObject);
procedure BtnEx5Click(Sender: TObject);
procedure BtnLookupS3Click(Sender: TObject);
procedure OutlookList1Items3Click(OutlookList: TfcCustomOutlookList;
Item: TfcOutlookListItem);
procedure BtnBackupOKClick(Sender: TObject);
procedure TabSheet7Show(Sender: TObject);
procedure TabSheet6Show(Sender: TObject);
procedure TabSheet4Show(Sender: TObject);
procedure TabSheet2Show(Sender: TObject);
procedure BtnNew3Click(Sender: TObject);
procedure BtnEx3Click(Sender: TObject);
procedure BtnModify4Click(Sender: TObject);
private
{ Private declarations }
LogNumber:Integer;
Loged:Boolean;
ActivedOutlookList:TfcCustomOutlookList;
OldSelectedIndex:Integer;
TmpArray:array of ServRecord;
//CloseIndex:Integer;
procedure SysEnable(b:Boolean);
procedure SysEnable1(b:Boolean);
procedure UserNewEnable(b:Boolean);
procedure UserUpdateEnable(b:Boolean);
Procedure MaintainEnable(b:Boolean);
procedure LookupEnable(b:Boolean);
Procedure LookupEnable1(b:Boolean);
procedure LookupEnable2(b:Boolean);
//About Operator Function
Procedure LoadOprator(Obj:TComboBox);
Procedure AddOprator(User,Pwd:String;Purview:Integer);
procedure DeleteOprator(User:String);
Procedure ModifyOprator(User,Pwd:String);overload;
Procedure ModifyOprator(User:String;Purview:Integer);overload;
procedure CheckPurview(s:String);
procedure ExecPurview(p:Integer);
//About User Function
Procedure AddUser(Year,Month,Day:Integer);
Procedure CalcServ;
procedure CalcServEx;
function ServNumber:Integer;
function ServNumberEx:Integer;
function AgentIDCreate(i:Integer):Integer;
function ExtendFee(i:Integer;s:String):Boolean;
procedure ModifyUser(i:Integer;S:String);
//Lookup
procedure ExecLookup(f:Integer;s:String);overload;
Procedure ExecLookup(f,y1,m1,y2,m2:Integer);overload;
//Backup and Recover
function BackupData(Dir:String):Boolean;
function RecoverData(Dir:String):Boolean;
procedure Delay(Seconds,Millisec:Word);
//打印
procedure LookPrintUser(UserCardNo: String;var TmpRec:array of ServRecord;var ResistDate:TDateTime;var z:String);
procedure LookPrintPosition(UserCardNo:String;var P:Integer);
procedure IncPrintMark(UserCardNo:String;n:Integer;b:Boolean);
procedure LookRecentServ(UserCardNo:String;var LateRec:array of ServRecord);
function ShowPrintState(q:TQuickRep):String;
procedure CleanPrintData(d:array of ServRecord);
procedure InitPrintUser;
Procedure UpdatePrint;
public
{ Public declarations }
CurrentUser:String;
CurrentPurview:Integer;
//打印数据
PrintData:array of PrintDataRecord;
PrintUser:PrintUserRecord;
PrintDataNumber:Integer;
PrintDataNo:Integer;
PrintPosition:Integer;
end;
var
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -