?? mainsrc.~pas
字號:
unit mainsrc;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, ImgList, ComCtrls,IniFiles,StrUtils,
ToolWin, Mask, Buttons, CheckLst, Grids, ValEdit, DB,ComObj,ShellAPI,
WordXP, OleServer, ADODB, ExtDlgs, DBCtrls, DBGrids,
ClipBrd,DateUtils,aboutsrc, Word2000;
type
TPersonInfo = Packed Record
UserName:String[20];
SysPass:String[30];
Created_DB:Array[0..19] of String[15];
Authen_DB_Pass:Array[0..19] of String[30];
LasteLoginDate:TDateTime;
End;
TMain = class(TForm)
Panel1: TPanel;
Splitter1: TSplitter;
GroupBox1: TGroupBox;
TreeView1: TTreeView;
GenPap: TGroupBox;
PapInf: TGroupBox;
Label1: TLabel;
PapInf_DbName: TEdit;
Label2: TLabel;
PapDat: TDateTimePicker;
PapStr: TGroupBox;
ListView1: TListView;
GenPapBegin: TBitBtn;
GenPapQuit: TBitBtn;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label5: TLabel;
ComboBox7: TComboBox;
Label6: TLabel;
MaskEdit2: TMaskEdit;
Label7: TLabel;
papername: TEdit;
BitBtn8: TBitBtn;
Label9: TLabel;
LimMon: TMaskEdit;
Label3: TLabel;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
CreateDatabase: TGroupBox;
GroupBox2: TGroupBox;
Label4: TLabel;
NewDBName: TEdit;
Label10: TLabel;
NewDBNameAlias: TEdit;
CreateNew: TBitBtn;
RegNewDB: TBitBtn;
GroupBox3: TGroupBox;
Label13: TLabel;
Label14: TLabel;
TableName: TEdit;
CreateTable: TBitBtn;
DataBaseNow: TEdit;
RegNewTable: TBitBtn;
Label17: TLabel;
TypeDefine: TComboBox;
PageCon: TPageControl;
TabGenPap: TTabSheet;
TabCreateDB: TTabSheet;
ADOConnPub: TADOConnection;
ADOTabPub: TADOTable;
ADOComPub: TADOCommand;
Label19: TLabel;
TableLevel: TComboBox;
MainMenu1: TMainMenu;
fileoper: TMenuItem;
opendoc: TMenuItem;
quitsys: TMenuItem;
CheckBox1: TCheckBox;
TabPapPreview: TTabSheet;
PaperPreview: TGroupBox;
TabAmend: TTabSheet;
GroupBox4: TGroupBox;
DataSourceAmend: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOTableAmend: TADOTable;
queston_main: TDBMemo;
ScrollBox1: TScrollBox;
DBImage1: TDBImage;
key_s: TDBMemo;
ScrollBox2: TScrollBox;
DBImage2: TDBImage;
LastDate: TDBEdit;
PopupMenuImg1: TPopupMenu;
copyimg1: TMenuItem;
pastimg1: TMenuItem;
cutimg1: TMenuItem;
N1: TMenuItem;
displaycoreimg1: TMenuItem;
PopupMenuImg2: TPopupMenu;
copyimg2: TMenuItem;
pasteimg2: TMenuItem;
cutimg2: TMenuItem;
N3: TMenuItem;
displaycoreimg2: TMenuItem;
displaycenterimg2: TMenuItem;
displaycenterimg1: TMenuItem;
N2: TMenuItem;
loadfromfile1: TMenuItem;
N4: TMenuItem;
loadfromfile2: TMenuItem;
OpenPicDial1: TOpenPictureDialog;
ADOConGenPap: TADOConnection;
ADOQueryGenPap: TADOQuery;
PopTree: TPopupMenu;
pump_test: TMenuItem;
amend_table: TMenuItem;
change_db_name: TMenuItem;
del_db: TMenuItem;
del_tab: TMenuItem;
new_db: TMenuItem;
N12: TMenuItem;
tools: TMenuItem;
A1: TMenuItem;
H1: TMenuItem;
N13: TMenuItem;
skinset: TMenuItem;
new_tab: TMenuItem;
TabSysConf: TTabSheet;
GroupBox6: TGroupBox;
ListView2: TListView;
GenPapDoc: TBitBtn;
GenPapRepump: TBitBtn;
StaticText1: TStaticText;
totalscore: TStaticText;
GenPapRepumpAll: TBitBtn;
PapGenPreview: TBitBtn;
WordApp1: TWordApplication;
WordDoc1: TWordDocument;
StaticText2: TStaticText;
StaticText3: TStaticText;
question_sub: TDBMemo;
PapGenPreiewall: TBitBtn;
testtype: TComboBox;
Label15: TLabel;
checkstyle: TComboBox;
N6: TMenuItem;
logo_out: TMenuItem;
N8: TMenuItem;
page: TMenuItem;
ScrollBox4: TScrollBox;
Memo1: TMemo;
StaticText4: TStaticText;
desc_db_name: TStaticText;
StaticText6: TStaticText;
desc_cur_user: TStaticText;
StaticText8: TStaticText;
ListView3: TListView;
Label16: TLabel;
db_user_pass: TEdit;
Label18: TLabel;
db_user_password: TEdit;
StaticText5: TStaticText;
create_new_user: TBitBtn;
Label23: TLabel;
Label24: TLabel;
new_sys_user_pass: TEdit;
Label25: TLabel;
new_sys_user_pass_ver: TEdit;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
rectify_db_pass: TEdit;
rectify_db_pass_ver: TEdit;
rectify_db_password: TBitBtn;
GroupBox5: TGroupBox;
new_sys_user: TEdit;
GroupBox7: TGroupBox;
delete_user: TBitBtn;
rectify_sys_pass: TBitBtn;
selected_db_name: TComboBox;
set_page: TMenuItem;
set_new_paper: TMenuItem;
set_tab_amend: TMenuItem;
set_new_reg: TMenuItem;
set_user_admin: TMenuItem;
Panel2: TPanel;
Label26: TLabel;
Label30: TLabel;
Label31: TLabel;
login_user_name: TEdit;
login_user_pass: TEdit;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
OpenDial1: TOpenDialog;
N7: TMenuItem;
ADOConAmend: TADOConnection;
ProBar: TProgressBar;
Panel3: TPanel;
now_count: TLabel;
N5: TMenuItem;
set_skin1: TMenuItem;
set_skin2: TMenuItem;
set_skin3: TMenuItem;
WordDoc2: TWordDocument;
PageControl1: TPageControl;
ques_main: TTabSheet;
ques_img: TTabSheet;
ques_sub: TTabSheet;
key_str: TTabSheet;
key_img: TTabSheet;
CheckBox2: TCheckBox;
Label11: TLabel;
set_skin4: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Splitter1Moved(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure CreateNewClick(Sender: TObject);
procedure RegNewDBClick(Sender: TObject);
procedure PageConChanging(Sender: TObject; var AllowChange: Boolean);
procedure TypeDefineClick(Sender: TObject);
procedure CreateTableClick(Sender: TObject);
procedure TypeDefineChange(Sender: TObject);
procedure TableLevelClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure LastDateDblClick(Sender: TObject);
procedure copyimg1Click(Sender: TObject);
procedure pastimg1Click(Sender: TObject);
procedure cutimg1Click(Sender: TObject);
procedure displaycoreimg1Click(Sender: TObject);
procedure displaycenterimg1Click(Sender: TObject);
procedure displaycoreimg2Click(Sender: TObject);
procedure displaycenterimg2Click(Sender: TObject);
procedure loadfromfile1Click(Sender: TObject);
procedure loadfromfile2Click(Sender: TObject);
procedure copyimg2Click(Sender: TObject);
procedure cutimg2Click(Sender: TObject);
procedure pasteimg2Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure RegNewTableClick(Sender: TObject);
procedure PopTreePopup(Sender: TObject);
procedure pump_testClick(Sender: TObject);
procedure amend_tableClick(Sender: TObject);
procedure skinsetClick(Sender: TObject);
procedure del_tabClick(Sender: TObject);
procedure del_dbClick(Sender: TObject);
procedure new_tabClick(Sender: TObject);
procedure new_dbClick(Sender: TObject);
procedure change_tab_nameClick(Sender: TObject);
procedure change_db_nameClick(Sender: TObject);
procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
procedure ListView1DblClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure TabAmendHide(Sender: TObject);
procedure GenPapBeginClick(Sender: TObject);
procedure GenPapRepumpAllClick(Sender: TObject);
procedure ListView2Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
procedure GenPapRepumpClick(Sender: TObject);
procedure PapGenPreviewClick(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure DBGrid1ColEnter(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure DBImage1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBImage2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DBGrid1TitleClick(Column: TColumn);
procedure DBGrid1EditButtonClick(Sender: TObject);
procedure PapGenPreiewallClick(Sender: TObject);
procedure GenPapDocClick(Sender: TObject);
procedure ListView3Click(Sender: TObject);
procedure new_sys_userChange(Sender: TObject);
procedure selected_db_nameChange(Sender: TObject);
procedure new_sys_user_passChange(Sender: TObject);
procedure new_sys_user_pass_verChange(Sender: TObject);
procedure rectify_db_passChange(Sender: TObject);
procedure rectify_db_pass_verChange(Sender: TObject);
procedure delete_userClick(Sender: TObject);
procedure create_new_userClick(Sender: TObject);
procedure TabSysConfShow(Sender: TObject);
procedure db_user_passChange(Sender: TObject);
procedure db_user_passwordChange(Sender: TObject);
procedure NewDBNameChange(Sender: TObject);
procedure rectify_sys_passClick(Sender: TObject);
procedure selected_db_nameDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
procedure TreeView1Click(Sender: TObject);
procedure rectify_db_passwordClick(Sender: TObject);
procedure logo_outClick(Sender: TObject);
procedure login_user_nameChange(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure login_user_passChange(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Panel2Enter(Sender: TObject);
procedure set_pageClick(Sender: TObject);
procedure quitsysClick(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure set_new_paperClick(Sender: TObject);
procedure set_user_adminClick(Sender: TObject);
procedure set_new_regClick(Sender: TObject);
procedure set_tab_amendClick(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure opendocClick(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure H1Click(Sender: TObject);
procedure set_skin1Click(Sender: TObject);
procedure set_skin2Click(Sender: TObject);
procedure set_skin3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure CheckBox2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ListView2DblClick(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure GenPapQuitClick(Sender: TObject);
procedure set_skin4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Main: TMain;
Current_User:TPersonInfo;
TreeDatabaseNode:TStringList;
implementation
uses login;
type
TInitFunc = procedure(FHandle: THandle);stdcall;
TUnloadFunc = procedure();stdcall;
TActiveFunc = procedure(Value : Boolean); Stdcall;
TSetSkinFile = procedure(Value : ShortString); Stdcall;
TAdd3rdControl = procedure(Value : ShortString); Stdcall;
var
InitProc : TInitFunc;
UnLoadProc : TUnloadFunc;
ActiveFunc : TActiveFunc;
SetSkinFile : TSetSkinFile;
Add3rdControl : TAdd3rdControl;
Lib : THandle;
FActive : Boolean;
isDisplay:boolean;
deadline:integer;
{$R *.dfm}
procedure LoadDLL;
begin
Lib := LoadLibrary('SKINDLL.dll');
if lib<>0 then begin
@InitProc := GetProcAddress(Lib,'InitSkin');
@UnLoadProc := GetProcAddress(Lib,'UnLoadAll');
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -