📄 mainunit.pas
字号:
unit MAINUNIT;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus,ComCtrls,Buttons, ExtCtrls,dbtables,StdCtrls,DisplaySwitcher,
ToolWin, RxMenus, Animate, GIFCtrl;
type
TMainForm = class(TForm)
Panel3: TPanel;
PB1: TProgressBar;
MainMenu1: TMainMenu;
N01: TMenuItem;
N49: TMenuItem;
N51: TMenuItem;
N52: TMenuItem;
N53: TMenuItem;
N55: TMenuItem;
N56: TMenuItem;
N57: TMenuItem;
N58: TMenuItem;
N59: TMenuItem;
N60: TMenuItem;
N61: TMenuItem;
N62: TMenuItem;
N63: TMenuItem;
N65: TMenuItem;
N66: TMenuItem;
N67: TMenuItem;
N68: TMenuItem;
N69: TMenuItem;
N70: TMenuItem;
N72: TMenuItem;
N73: TMenuItem;
N74: TMenuItem;
N75: TMenuItem;
N76: TMenuItem;
N77: TMenuItem;
N78: TMenuItem;
N79: TMenuItem;
N80: TMenuItem;
N86: TMenuItem;
N87: TMenuItem;
N94: TMenuItem;
N104: TMenuItem;
N105: TMenuItem;
N106: TMenuItem;
N107: TMenuItem;
N81: TMenuItem;
N82: TMenuItem;
N83: TMenuItem;
N84: TMenuItem;
N85: TMenuItem;
N88: TMenuItem;
N89: TMenuItem;
N90: TMenuItem;
N91: TMenuItem;
N92: TMenuItem;
N108: TMenuItem;
N109: TMenuItem;
N20003: TMenuItem;
N110: TMenuItem;
N111: TMenuItem;
N1: TMenuItem;
EXCEL1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
cd: TColorDialog;
N4: TMenuItem;
N5: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N21: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N32: TMenuItem;
dsp2: TDisplaySwitcher;
N20011: TMenuItem;
N31: TMenuItem;
ToolBar1: TToolBar;
ImageList1: TImageList;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton16: TSpeedButton;
Bevel6: TBevel;
Splitter1: TSplitter;
Splitter2: TSplitter;
Splitter3: TSplitter;
Splitter4: TSplitter;
RxPopupMenu1: TRxPopupMenu;
N47: TMenuItem;
N46: TMenuItem;
N33: TMenuItem;
N35: TMenuItem;
N34: TMenuItem;
N36: TMenuItem;
N37: TMenuItem;
N38: TMenuItem;
N39: TMenuItem;
N40: TMenuItem;
N41: TMenuItem;
N42: TMenuItem;
N43: TMenuItem;
N44: TMenuItem;
N45: TMenuItem;
N210: TMenuItem;
N48: TMenuItem;
N50: TMenuItem;
N54: TMenuItem;
N64: TMenuItem;
N93: TMenuItem;
N95: TMenuItem;
Splitter5: TSplitter;
N96: TMenuItem;
N97: TMenuItem;
N12: TMenuItem;
N71: TMenuItem;
N98: TMenuItem;
N99: TMenuItem;
N100: TMenuItem;
N101: TMenuItem;
Test21: TMenuItem;
N102: TMenuItem;
N103: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure Panel2Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure mouyu1Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure SQl1Click(Sender: TObject);
procedure N49Click(Sender: TObject);
procedure N53Click(Sender: TObject);
procedure N55Click(Sender: TObject);
procedure N57Click(Sender: TObject);
procedure N59Click(Sender: TObject);
procedure N61Click(Sender: TObject);
procedure N63Click(Sender: TObject);
procedure N68Click(Sender: TObject);
procedure N72Click(Sender: TObject);
procedure N74Click(Sender: TObject);
procedure N76Click(Sender: TObject);
procedure N78Click(Sender: TObject);
procedure N107Click(Sender: TObject);
procedure N111Click(Sender: TObject);
procedure N82Click(Sender: TObject);
procedure N83Click(Sender: TObject);
procedure N84Click(Sender: TObject);
procedure N89Click(Sender: TObject);
procedure N20003Click(Sender: TObject);
procedure N51Click(Sender: TObject);
procedure N87Click(Sender: TObject);
procedure N86Click(Sender: TObject);
procedure N94Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure EXCEL1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure N9Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure N27Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N32Click(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure N20011Click(Sender: TObject);
procedure N97Click(Sender: TObject);
procedure N98Click(Sender: TObject);
procedure N100Click(Sender: TObject);
procedure N103Click(Sender: TObject);
procedure Test21Click(Sender: TObject);
private
// procedure DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
{ Private declarations }
public
{ Public declarations }
procedure wmsyscommand(var msg:Tmessage);message wm_syscommand;
end;
var
MainForm: TMainForm;
var ssss:string;
const Curs=1;
implementation
uses rxshell,WHUNIT, jjDateunit, gzdata, DataTUnit, KqDayUnit, JsBmXzUnit,
PassWordUnit, BackUpUnit, printmainunit, Dateunit, KkDateunit,
ViewUnit, XgKlUnit, ZjdwUnit, ZjYhUnit, DelUserUnit,
CssjDateunit, DelGzDateunit, bdeutils,Tzhdateunit,sjlbunit,cshunit,recunit2,
ccunit, ShlObj, ActiveX, ComObj, Registry, ZjZdUnit, //InputUnit,
CnDateUnit, ZhiChengXzUnit, TzhPrintUnit, PrintShowUnit, previewt,
gztunit, KsBmXzUnit, FLBmXzUnit, TcjXzUnit, TjXzUnit, gjjunit, GlZjUnit,
shjunit, DatePrevShjunit, DateCurShjunit, Okunit;
{$R *.DFM}
{$R curs.res}
{procedure tmainform.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_RETURN then
Keybd_event(VK_TAB, 0, 0, 0);
end; //if
end;}
procedure tmainform.wmsyscommand(var msg:Tmessage);
var item:Tmenuitem;
begin
item:=mainmenu1.finditem(msg.wparam,fkcommand);
if not(item=nil) then
item.click;
inherited;
end;
procedure TMainForm.FormCreate(Sender: TObject);
var txyz:file;
i:integer;
begin
//Application.OnMessage := DoEnterAsTab;
{Screen.Cursors[Curs] := LoadCursor(hInstance, 'CURSOR_1');
(* 指定 form1 的 cursor 為自訂滑鼠指標 *)
Cursor := Curs;
screen.cursor:=Curs;}
appendmenu(getsystemmenu(handle,false),mf_separator,0,'');
with mainmenu1 do
for i:=0 to items.count-1 do
appendmenu(getsystemmenu(self.handle,false),mf_popup,items[I].handle,pchar(items[I].caption));
try
shortdateformat:='yyyy-mm-dd';
longdateformat:='yyyy-mm-dd';
if not (fileexists(ExtractFileDir(Application.EXEName)+'\sx2.txt')) then
begin
assignfile(txyz,'sx2.Txt');
rewrite(txyz);
end;
except
application.MessageBox('发生意外错误,可能是计算机与磁盘不同步,或者是您已经打开了本程序调用的数据库，请立即关闭应用程序,计算机马上要重新启动,请按确定键!!!','警告',mb_ok+mb_iconstop);
exitwindowsex(EWX_REBOOT,0);
end;
end;
procedure TMainForm.N10Click(Sender: TObject);
begin
IF (application.messagebox(pchar('当您的数据不正确时，请运行本过程，进行吗？'),'消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
=idcancel) then abort;
try
try
datat.Table4.Close;
datat.table4.Open;
packtable(datat.table4);
Application.ProcessMessages;
datat.Table1.Close;
datat.table1.Open;
packtable(datat.table1);
except
// MessageBox(Handle,'致命错误！！！请关闭所有应用程序，重新启动计算机！！！',pchar(caption),Mb_iconstop+Mb_ok);
// abort;
end;
finally
datat.table4.close;
datat.table1.Close;
application.messagebox('数据清理完毕！！！','消息框',mb_ok+mb_iconinformation);
end;
end;
{procedure createlink(programpath,programarg,linkpath,descr:string);
var
anobj:iunknown;
shelllink:ishelllink;
afile:ipersistfile;
FileName:WideString;
begin
if uppercase(extractfileext(linkpath))<>'.LNK' then
begin
raise Exception.Create('快捷方式的扩展名必须是"lnk"!');
end;
try
oleinitialize(nil);
anobj:=createcomobject(clsid_shelllink);
shelllink:=anobj as ishelllink;
afile:=anobj as ipersistfile;
shelllink.setpath(PChar(programpath));
shelllink.setarguments(PChar(programarg));
shelllink.SetDescription(PChar(descr));
shelllink.SetHotkey(vk_F12);
// shelllink.SetRelativePath(PChar(programarg),1);
// shelllink.SetShowCmd(1);
shelllink.SetWorkingDirectory(PChar(ExtractFileDir(Application.EXEName)));
FileName:=linkpath;
afile.Save(pwidechar(FileName),false);
finally
oleuninitialize;
end;
end;}
procedure TMainForm.Panel2Click(Sender: TObject);
begin
// rxspeedbutton3.GroupIndex:=1;
// popupmenu3.Popup(1,64);
if (datat.unittable1.active)
then ShowMessage('1');
if datat.bmtable2.active
then ShowMessage('2');
if (datat.table1.active)
then ShowMessage('lyk1');
if datat.table2.active
then ShowMessage('ls2');
if datat.table3.active
then ShowMessage('3');
if datat.table4.active
then ShowMessage('4');
if datat.table5.active
then ShowMessage('5');
if datat.table6.active
then ShowMessage('6');
end;
procedure TMainForm.N7Click(Sender: TObject);
var ssss:string;
i:integer;
begin
{// if backckform=nil then
Application.CreateForm(Tbackckform,backckform);
backckform.ShowModal;
backckform.Hide;
backckform.Release;}
for i:=1 to 3 do
begin
datat.table1.open;
datat.Table2.Open;
datat.Table5.Open;
if i=1 then
ssss:='jbkk';
if i=2 then
ssss:='sj';
if i=3 then
ssss:='kg';
ssss:='ZJ'+ssss;
if datat.table1.FindField(ssss)<>nil then
begin
application.MessageBox('您已经升级至Beta版！！！','提示',mb_ok+mb_iconinformation);
datat.table1.close;
datat.table2.close;
datat.table5.close;
data.Query1.Close;
abort;
end;
data.Query1.Close;
with data.query1 do
begin
if datat.Table1.Active then datat.table1.close;
with sql do
begin
datat.table1.close;
clear;
add('alter table "LYK.dbf" add column');
add(ssss);
add('NUMERIC(10,2)');
end;
ExecSQL;
end;
data.Query1.Close;
with data.query1 do
begin
if datat.Table2.Active then datat.table2.close;
with sql do
begin
datat.table2.close;
clear;
add('alter table "printls.dbf" add column');
add(ssss);
add('NUMERIC(10,2)');
end;
ExecSQL;
end;
data.Query1.Close;
with data.query1 do
begin
if datat.Table5.Active then datat.table5.close;
with sql do
begin
datat.table5.close;
clear;
add('alter table "printtemp.dbf" add column');
add(ssss);
add('NUMERIC(10,2)');
end;
ExecSQL;
end;
end;
application.messagebox('恭喜,恭喜,字段成功的产生完毕!!!','消息框',mb_ok+mb_iconinformation);
datat.table1.close;
datat.table2.close;
datat.table5.close;
data.Query1.Close;
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -