main.~pas

汽车配件管理系统 采用ACCESS数据库 配件销售类公司适用 。 主要是目录树的学习

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WinSkinData, Menus, DB, ADODB, jpeg, ExtCtrls, dxfShapedForm,
  cxLookAndFeelPainters, StdCtrls, cxButtons, cxContainer, cxEdit,
  cxGroupBox, cxPC, cxControls, RingNotebook, dxfPictureButton,
  jvBitmapButton, janRingButton, AAFont, AACtrls, Noshape,
  cxShellBrowserDialog,JRO_TLB;

type
    miwen=record
    mima1:string[40];
    mima2:string[220];
    mima3:string[180];
end;

mimawenjian=file of miwen;

type
  Tqpmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    SkinData1: TSkinData;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    Table1: TADOTable;
    Table2: TADOTable;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    page1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxTabSheet2: TcxTabSheet;
    cxTabSheet3: TcxTabSheet;
    cxTabSheet4: TcxTabSheet;
    cxTabSheet5: TcxTabSheet;
    gBox1: TcxGroupBox;
    RingNotebook1: TRingNotebook;
    jvBitmapButton1: TjvBitmapButton;
    jvBitmapButton2: TjvBitmapButton;
    jvBitmapButton3: TjvBitmapButton;
    jvBitmapButton4: TjvBitmapButton;
    jvBitmapButton5: TjvBitmapButton;
    jvBitmapButton6: TjvBitmapButton;
    jvBitmapButton7: TjvBitmapButton;
    jvBitmapButton8: TjvBitmapButton;
    jvBitmapButton9: TjvBitmapButton;
    RingNotebook2: TRingNotebook;
    jvBitmapButton10: TjvBitmapButton;
    jvBitmapButton11: TjvBitmapButton;
    jvBitmapButton12: TjvBitmapButton;
    jvBitmapButton13: TjvBitmapButton;
    RingNotebook3: TRingNotebook;
    jvBitmapButton14: TjvBitmapButton;
    jvBitmapButton15: TjvBitmapButton;
    jvBitmapButton16: TjvBitmapButton;
    jvBitmapButton17: TjvBitmapButton;
    RingNotebook4: TRingNotebook;
    jvBitmapButton18: TjvBitmapButton;
    jvBitmapButton19: TjvBitmapButton;
    jvBitmapButton20: TjvBitmapButton;
    jvBitmapButton21: TjvBitmapButton;
    RingNotebook5: TRingNotebook;
    jvBitmapButton22: TjvBitmapButton;
    jvBitmapButton23: TjvBitmapButton;
    jvBitmapButton24: TjvBitmapButton;
    jvBitmapButton25: TjvBitmapButton;
    jvBitmapButton26: TjvBitmapButton;
    jvBitmapButton27: TjvBitmapButton;
    AALabel1: TAALabel;
    AALabel2: TAALabel;
    AALabel3: TAALabel;
    AALabel4: TAALabel;
    AALabel5: TAALabel;
    AAFadeText1: TAAFadeText;
    AAFadeText2: TAAFadeText;
    AAFadeText3: TAAFadeText;
    AAFadeText4: TAAFadeText;
    AAFadeText5: TAAFadeText;
    AAFadeText6: TAAFadeText;
    AAFadeText7: TAAFadeText;
    AAFadeText8: TAAFadeText;
    AAFadeText9: TAAFadeText;
    AAFadeText10: TAAFadeText;
    AAFadeText11: TAAFadeText;
    AAFadeText12: TAAFadeText;
    AAFadeText13: TAAFadeText;
    AAFadeText14: TAAFadeText;
    AAFadeText15: TAAFadeText;
    AAFadeText16: TAAFadeText;
    AAFadeText17: TAAFadeText;
    AAFadeText18: TAAFadeText;
    AAFadeText19: TAAFadeText;
    AAFadeText20: TAAFadeText;
    AAFadeText21: TAAFadeText;
    AAFadeText22: TAAFadeText;
    AAFadeText23: TAAFadeText;
    AAFadeText24: TAAFadeText;
    AALabel6: TAALabel;
    dxfShapedForm1: TdxfShapedForm;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    sDg1: TcxShellBrowserDialog;
    ODg1: TOpenDialog;
    table3: TADOQuery;
    AAFadeText25: TAAFadeText;
    AAFadeText26: TAAFadeText;
    AAFadeText27: TAAFadeText;
    AAFadeText28: TAAFadeText;
    AAFadeText29: TAAFadeText;
    AAFadeText30: TAAFadeText;
    AAFadeText31: TAAFadeText;
    AAFadeText32: TAAFadeText;
    AAFadeText33: TAAFadeText;
    AAFadeText34: TAAFadeText;
    AAFadeText35: TAAFadeText;
    AAFadeText36: TAAFadeText;
    AAFadeText37: TAAFadeText;
    AAFadeText38: TAAFadeText;
    jvBitmapButton28: TjvBitmapButton;
    AAFadeText39: TAAFadeText;
    N61: TMenuItem;
    N62: TMenuItem;
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure jvBitmapButton1click(Sender: TObject);
    procedure jvBitmapButton2click(Sender: TObject);
    procedure jvBitmapButton3click(Sender: TObject);
    procedure jvBitmapButton4click(Sender: TObject);
    procedure jvBitmapButton5click(Sender: TObject);
    procedure jvBitmapButton7click(Sender: TObject);
    procedure jvBitmapButton8click(Sender: TObject);
    procedure jvBitmapButton9click(Sender: TObject);
    procedure jvBitmapButton10click(Sender: TObject);
    procedure jvBitmapButton11click(Sender: TObject);
    procedure jvBitmapButton12click(Sender: TObject);
    procedure jvBitmapButton13click(Sender: TObject);
    procedure jvBitmapButton14click(Sender: TObject);
    procedure jvBitmapButton15click(Sender: TObject);
    procedure jvBitmapButton16click(Sender: TObject);
    procedure jvBitmapButton17click(Sender: TObject);
    procedure jvBitmapButton18click(Sender: TObject);
    procedure jvBitmapButton19click(Sender: TObject);
    procedure jvBitmapButton20click(Sender: TObject);
    procedure jvBitmapButton21click(Sender: TObject);
    procedure jvBitmapButton22click(Sender: TObject);
    procedure jvBitmapButton23click(Sender: TObject);
    procedure jvBitmapButton24click(Sender: TObject);
    procedure jvBitmapButton25click(Sender: TObject);
    procedure jvBitmapButton26click(Sender: TObject);
    procedure jvBitmapButton27click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure jvBitmapButton6click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure jvBitmapButton28click(Sender: TObject);
    procedure N62Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure dlyx;
    Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;
    { Public declarations }
  end;

var
  qpmain: Tqpmain;
  sydw,sydwqc,sydwdz,sydwdh,czy:string;
  zccg,lb:boolean;
  
implementation

{$R *.dfm}

uses sjk,cpflk,cpkczl,cpkc,kccx,spdw,khzl,ghszl,sprk,gsry,xtdl,
     czyqx,reg,rjzcxx,rjzc,spck,rkcx,ckcx,cktk,rktk,tkcx,thcx,
     khfk,fghs,rszjz,jzcx,lrcx,ybbcx,spckzc;

procedure tqpmain.dlyx;
var i,j,m,n,o:integer;
begin
xtdlck:=txtdlck.Create(self);
xtdlck.ShowModal;
if xtdlck.jinr.Caption='ok' then
begin
table2.Open;
m:=1;
while m<=table2.RecordCount do
begin
o:=length(table2['cdh']);
n:=pos('-',table2['cdh']);
i:=strtoint(copy(table2['cdh'],1,n-1));
j:=strtoint(copy(table2['cdh'],n+1,o-n));
if pos(table2['cdh'],xtdlck.czqxsj.Caption)=0 then
mainmenu1.Items[i].Items[j].Enabled:=false
else
mainmenu1.Items[i].Items[j].Enabled:=true;
m:=m+1;
table2.Next;
end;
table2.Close;
end else
if xtdlck.jinr.Caption<>'cj' then application.Terminate;
czy:=xtdlck.Table1['xm'];
lb:=xtdlck.Table1['sflb'];
xtdlck.Free;

end;


procedure Tqpmain.N16Click(Sender: TObject);
begin
cpflmcck:=tcpflmcck.Create(self);
cpflmcck.ShowModal;
cpflmcck.Free;
end;

procedure Tqpmain.N18Click(Sender: TObject);
begin
cpkczlck:=tcpkczlck.Create(self);
cpkczlck.ShowModal;
cpkczlck.Free;
end;

procedure Tqpmain.N12Click(Sender: TObject);
begin
cpkcck:=tcpkcck.Create(self);
cpkcck.ShowModal;
cpkcck.Free;
end;

procedure Tqpmain.N14Click(Sender: TObject);
begin
kccxck:=tkccxck.Create(self);
kccxck.ShowModal;
kccxck.Free;
end;

procedure Tqpmain.N19Click(Sender: TObject);
begin
spdwck:=tspdwck.Create(self);
spdwck.ShowModal;
spdwck.Free;
end;

procedure Tqpmain.N21Click(Sender: TObject);
begin
khzlck:=tkhzlck.Create(self);
khzlck.ShowModal;
khzlck.Free;
end;

procedure Tqpmain.N23Click(Sender: TObject);
begin
ghszlck:=tghszlck.Create(self);
ghszlck.ShowModal;
ghszlck.Free;
end;

procedure Tqpmain.N9Click(Sender: TObject);
begin
sprkck:=tsprkck.Create(self);
sprkck.ShowModal;
sprkck.Free;
end;

procedure Tqpmain.N26Click(Sender: TObject);
begin
gsryck:=tgsryck.Create(self);
gsryck.ShowModal;
gsryck.Free;
end;

procedure Tqpmain.N29Click(Sender: TObject);
begin
dlyx;
end;

procedure Tqpmain.FormCreate(Sender: TObject);
var
wenjian1:mimawenjian;
rec:miwen;
shuju1,dlmima,xh,xh1,xh2,lujing,str:string;
begin
str := 'yyyy-MM-dd';
SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, PChar(str));
str := 'HH:mm:ss';
SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_STIMEFORMAT, PChar(str));

gbox1.Left:=gbox1.Left+((screen.Width-800)div 2)+20;
page1.Left:=page1.Left+((screen.Width-800)div 2)+20;
gbox1.Top:=gbox1.Top+((screen.Height-600)div 2);
page1.Top:=page1.Top+((screen.Height-600)div 2);
ShortDateFormat:='yyyy-mm-dd';
table1.Open;
if table1.RecordCount=0 then
begin
sydw:='曹建立';
sydwqc:='恒信电脑行';
sydwdz:='承德市鹰手营子矿区商贸城';
sydwdh:='5018188';
table1.Append;
table1['zcdw']:=sydw;
table1['dwqc']:=sydwqc;
table1['dz']:=sydwdz;
table1.UpdateBatch();
end else
begin
sydw:=table1['lxr'];
sydwqc:=table1['zcdw'];
sydwdz:=table1['dz'];
sydwdh:=table1['dh'];
end;
table1.close;
lujing:=extractfilepath(application.ExeName)+'\';
shuju1:=lujing+'user.dat';
assignfile(wenjian1,shuju1);
if not fileexists(shuju1) then
begin
rewrite(wenjian1);
seek(wenjian1,1);
EncryptStringFun2(PChar('caojianli'), PChar('jianghaiqin'));
rec.mima1:=sydwqc;
rec.mima3:=sydw;
rec.mima2:='';
write(wenjian1,rec);
closefile(wenjian1);
end;
reset(wenjian1);
seek(wenjian1,1);
read(wenjian1,rec);
xh:=sydwqc;
EncryptStringFun2(PChar(xh), PChar('jianghaiqin'));
xh:=return;
xh2:=rec.mima2;
DecryptStringFun1(PChar(xh2), PChar('caojianli'));
xh2:=return;
if xh<>xh2 then
zccg:=false else zccg:=true;
closefile(wenjian1);
if not zccg then
begin
sydw:='曹建立';
sydwqc:='恒信电脑行';
sydwdz:='承德市鹰手营子矿区商贸城';
sydwdh:='5018188';
end;
dlyx;
end;

procedure Tqpmain.FormShow(Sender: TObject);
var i,j:integer;
begin
table2.Open;
i:=0;
j:=0;
if table2.RecordCount<1 then
begin
while i<mainmenu1.Items.Count do
begin
while j<mainmenu1.Items[i].Count do
begin
if mainmenu1.Items[i].Items[j].Caption<>'-' then
begin
table2.Append;
table2['cdmc']:=mainmenu1.Items[i].Items[j].Caption;
table2['cdh']:=inttostr(i)+'-'+inttostr(j);
end;
j:=j+1;
end;
j:=0;
i:=i+1;
end;
table2.UpdateBatch();
end;

end;

procedure Tqpmain.N27Click(Sender: TObject);
begin
czyqxck:=tczyqxck.Create(self);
czyqxck.ShowModal;
czyqxck.Free;
end;

procedure Tqpmain.N31Click(Sender: TObject);
begin
rjzcxxck:=Trjzcxxck.Create(self);
rjzcxxck.ShowModal;
rjzcxxck.Free;
end;

procedure Tqpmain.N33Click(Sender: TObject);