?? unit_main.~pas
字號:
unit Unit_main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, Buttons, DB, ADODB, ComCtrls, Menus, ImgList, shellapi,
StdCtrls, ToolWin;
type
TForm_main = class(TForm)
ADOQuery1: TADOQuery;
Timer_show: TTimer;
ADOCn: TADOConnection;
StatusBar_main: TStatusBar;
MainMenu1: TMainMenu;
N3: TMenuItem;
N44: TMenuItem;
N50: TMenuItem;
N42: TMenuItem;
N43: TMenuItem;
N18: TMenuItem;
N70: TMenuItem;
N67: TMenuItem;
N66: TMenuItem;
N64: TMenuItem;
N63: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N16: TMenuItem;
N5: TMenuItem;
N41: TMenuItem;
N21: TMenuItem;
N6: TMenuItem;
N15: TMenuItem;
MenuItem1: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N1: TMenuItem;
N12: TMenuItem;
Label1: TLabel;
Label2: TLabel;
Image1: TImage;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
BackBtn: TToolButton;
ForwardBtn: TToolButton;
StopBtn: TToolButton;
RefreshBtn: TToolButton;
NavigatorImages: TImageList;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormShow(Sender: TObject);
procedure Timer_showTimer(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N41Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N44Click(Sender: TObject);
procedure N42Click(Sender: TObject);
procedure N43Click(Sender: TObject);
procedure N70Click(Sender: TObject);
procedure N66Click(Sender: TObject);
procedure N64Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure MenuItem6Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure BackBtnClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure RefreshBtnClick(Sender: TObject);
procedure StopBtnClick(Sender: TObject);
procedure ForwardBtnClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure p_add_form(form_name:string); //創建窗體時追加進窗休記錄
procedure p_del_form(form_name:string); //關閉窗體時刪除窗體記錄
function f_is_active_form(form_name:string):boolean; //判斷該窗體是否已創建
function f_get_now:tdatetime; //得到當前數據庫日期
end;
var
Form_main: TForm_main;
//標志窗體是否激活
gl_active_count : integer;
gs_active_form : array [0..100] of string;
gs_userid : string; //用戶ID
gs_username :String; //名字
gs_userbm :String; //部門
implementation
uses Unit_login, Unit_set_password, Unit_set_khzl, Unit_set_gys,
Unit_set_login, Unit_set_fkfs, Unit_set_hp, Unit_input_cgsh,
Unit_input_cgth, Unit_input_xs, Unit_query_cgsh, Unit_query_xs,
Unit_query_cgth, Unit_query_lr, Unit_query_qk, Unit_set_sjbf,
Unit_set_sjhy, Unit_set_about, Unit_query_kc;
{$R *.dfm}
procedure TForm_main.p_add_form(form_name:string);
begin
gl_active_count := gl_active_count + 1;
gs_active_form[gl_active_count] := form_name;
end;
procedure TForm_main.p_del_form(form_name:string);
var i : integer;
begin
i := 0;
if i > gl_active_count then exit;
while gs_active_form[i] <> form_name do
begin
i := i + 1;
if i > gl_active_count then exit;
end;
gl_active_count := gl_active_count - 1;
while i <= gl_active_count do
begin
gs_active_form[i] := gs_active_form[i + 1];
i := i + 1;
end;
end;
function TForm_main.f_is_active_form(form_name:string):boolean;
var i : integer;
begin
for i := 0 to gl_active_count do
begin
if gs_active_form[i] = form_name then
begin
f_is_active_form := true;
exit;
end;
end;
f_is_active_form := false;
end;
function TForm_main.f_get_now:tdatetime; //得到當前數據庫日期
begin
f_get_now := now;
end;
procedure TForm_main.FormCreate(Sender: TObject);
begin
//初始化記錄窗體是否創建的數組
gl_active_count := -1;
end;
procedure TForm_main.FormPaint(Sender: TObject);
begin
if (not ADOCn.Connected) or (self.tag=1) then exit;
if not f_is_active_form('Form_login') then
Application.CreateForm(TForm_login, Form_login);
if form_login.tag=1 then exit;
self.Enabled := false;
form_login.Show;
form_login.SetFocus;
end;
procedure TForm_main.Image1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if (not ADOCn.Connected) or (self.tag=1) then exit;
if not f_is_active_form('Form_login') then
Application.CreateForm(TForm_login, Form_login);
if form_login.tag=1 then exit;
self.Enabled := false;
form_login.Show;
form_login.SetFocus;
end;
procedure TForm_main.FormShow(Sender: TObject);
var a,b : string;
begin
//數據庫連接
adocn.Close;
a:=ExtractFilePath(paramstr(0))+'xhxc.mdb'; //得到執行文件EXE目錄下的數據庫
b:='Provider=Microsoft.Jet.OLEDB.4.0;password="";user id=admin;Data Source='+
a+';Persist Security Info=False'; //連接字符串
AdoCn.ConnectionString:=b;
try
ADOCn.Connected:=true;
except
showmessage('數據庫連接失敗！');
Application.Terminate;
end;
if not f_is_active_form('Form_login') then //顯示登陸窗體
Application.CreateForm(TForm_login, Form_login);
if form_login.tag=1 then exit;
self.Enabled := false;
form_login.Show;
form_login.SetFocus;
self.tag := 1;
end;
procedure TForm_main.Timer_showTimer(Sender: TObject);
var d : Tdatetime;
begin
//在狀態欄顯示當前日期
if (not ADOCn.Connected) then exit;
d := f_get_now;
StatusBar_main.Panels[1].Text := formatdatetime('YYYY',d)+'年'+formatdatetime('MM',d)+'月'+
formatdatetime('DD',d)+'日' ;
end;
procedure TForm_main.N13Click(Sender: TObject);
begin
//退出程序
form_main.Close;
end;
procedure TForm_main.N24Click(Sender: TObject);
begin
//彈出幫助文檔
shellexecute(handle,nil,pchar(ExtractFilePath(paramstr(0))+'操作說明.doc'),nil,nil,sw_shownormal);
end;
procedure TForm_main.N4Click(Sender: TObject);
begin
//彈出客戶資料設置單
if f_is_active_form('form_set_khzl') = false then
Application.CreateForm(Tform_set_khzl, form_set_khzl);
form_set_khzl.show;
end;
procedure TForm_main.N5Click(Sender: TObject);
begin
//彈出銷售人員設置單
if f_is_active_form('form_set_gys') = false then
Application.CreateForm(Tform_set_gys, form_set_gys);
form_set_gys.show;
end;
procedure TForm_main.N41Click(Sender: TObject);
begin
//彈出操作員設置窗體
if gs_username='系統管理員' then //判斷是否為系統管理員，在此為權限設置
begin
if f_is_active_form('form_set_login') = false then
Application.CreateForm(Tform_set_login, form_set_login);
form_set_login.show;
end
else
showmessage('只有系統管理員才有此權限！') ;
end;
procedure TForm_main.N6Click(Sender: TObject);
begin
//彈出付款方式設置窗體
if f_is_active_form('form_set_fkfs') = false then
Application.CreateForm(Tform_set_fkfs, form_set_fkfs);
form_set_fkfs.show;
end;
procedure TForm_main.N15Click(Sender: TObject);
begin
//彈出貨品資料設置窗體
if f_is_active_form('form_set_hp') = false then
Application.CreateForm(Tform_set_hp, form_set_hp);
form_set_hp.show;
end;
procedure TForm_main.N44Click(Sender: TObject);
begin
//彈出生產入庫單
if f_is_active_form('form_input_cgsh') = false then
Application.CreateForm(Tform_input_cgsh, form_input_cgsh);
form_input_cgsh.show;
end;
procedure TForm_main.N42Click(Sender: TObject);
begin
//彈出銷售收款單
if f_is_active_form('form_input_xssk') = false then
Application.CreateForm(Tform_input_xssk, form_input_xssk);
form_input_xssk.show;
end;
procedure TForm_main.N43Click(Sender: TObject);
begin
//彈出銷售退貨單
if f_is_active_form('form_input_cgth') = false then
Application.CreateForm(Tform_input_cgth, form_input_cgth);
form_input_cgth.show;
end;
procedure TForm_main.N70Click(Sender: TObject);
begin
//彈出生產入庫查詢單
if f_is_active_form('form_query_cgsh') = false then
Application.CreateForm(Tform_query_cgsh, form_query_cgsh);
form_query_cgsh.show;
end;
procedure TForm_main.N66Click(Sender: TObject);
begin
// 彈出銷售收款查詢單
if f_is_active_form('form_query_xs') = false then
Application.CreateForm(Tform_query_xs, form_query_xs);
form_query_xs.show;
end;
procedure TForm_main.N64Click(Sender: TObject);
begin
//彈出退貨查詢單
if f_is_active_form('form_query_cgth') = false then
Application.CreateForm(Tform_query_cgth, form_query_cgth);
form_query_cgth.show;
end;
procedure TForm_main.N11Click(Sender: TObject);
begin
//彈出利潤查詢單
if f_is_active_form('form_query_lr') = false then
Application.CreateForm(Tform_query_lr, form_query_lr);
form_query_lr.show;
end;
procedure TForm_main.N10Click(Sender: TObject);
begin
//欠款查詢單
if f_is_active_form('form_query_qk') = false then
Application.CreateForm(Tform_query_qk, form_query_qk);
form_query_qk.show;
end;
procedure TForm_main.MenuItem2Click(Sender: TObject);
begin
//修改密碼
if f_is_active_form('Form_Set_Password') = false then
Application.CreateForm(TForm_Set_Password, Form_Set_Password);
Form_Set_Password.show;
end;
procedure TForm_main.N7Click(Sender: TObject);
begin
//彈出數據庫備分
if f_is_active_form('Form_Set_sjbf') = false then
Application.CreateForm(TForm_Set_sjbf, Form_Set_sjbf);
Form_Set_sjbf.show;
end;
procedure TForm_main.N8Click(Sender: TObject);
begin
//彈出數據庫恢復窗體
if f_is_active_form('Form_Set_sjhy') = false then
Application.CreateForm(TForm_Set_sjhy, Form_Set_sjhy);
Form_Set_sjhy.show;
end;
procedure TForm_main.MenuItem6Click(Sender: TObject);
begin
//彈出關于窗體
aboutbox.showmodal;
end;
procedure TForm_main.N12Click(Sender: TObject);
begin
//彈出庫存查詢單
if f_is_active_form('Form_query_kc') = false then
Application.CreateForm(TForm_query_kc, Form_query_kc);
Form_query_kc.show;
end;
procedure TForm_main.BackBtnClick(Sender: TObject);
begin
N44.Click;//生產入庫
end;
procedure TForm_main.ToolButton2Click(Sender: TObject);
begin
if application.MessageBox('是否真的退出系統？','退出提示',mb_yesno) =idyes then
form_main.Close//退出系統
else
exit;
end;
procedure TForm_main.RefreshBtnClick(Sender: TObject);
begin
N42.Click;//銷售收款
end;
procedure TForm_main.StopBtnClick(Sender: TObject);
begin
N12.Click;//庫存查詢
end;
procedure TForm_main.ForwardBtnClick(Sender: TObject);
begin
N11.Click; //利潤查詢
end;
procedure TForm_main.ToolButton1Click(Sender: TObject);
begin
N10.Click; //欠款查詢
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -