main.~pas

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

var zcm:string;
wenjian1:mimawenjian;
rec:miwen;
shuju1,xh,xh2:string;
begin
shuju1:=extractfilepath(application.ExeName)+'\user.dat';
assignfile(wenjian1,shuju1);
reset(wenjian1);
seek(wenjian1,1);
read(wenjian1,rec);
rjzcck:=Trjzcck.Create(self);
rjzcck.Edit1.Text:=rec.mima1;
rjzcck.Edit3.Text:=rec.mima3;
rjzcck.ShowModal;
rec.mima1:=rjzcck.edit1.text;
rec.mima3:=rjzcck.edit3.text;
if trim(rjzcck.Edit2.Text)<>'' then
zcm:=rjzcck.Edit2.Text else
zcm:='caojianli';
rjzcck.Free;
xh:=rec.mima1;
EncryptStringFun2(PChar(xh), PChar('jianghaiqin'));
xh:=return;
xh2:=zcm;
DecryptStringFun1(PChar(xh2), PChar('caojianli'));
xh2:=return;
rec.mima2:=zcm;
if xh<>xh2 then
zccg:=false else zccg:=true;
if zccg then
begin
table1.Open;
table1.edit;
table1['zcdw']:=rec.mima1;
table1['lxr']:=rec.mima3;
table1.UpdateBatch();
table1.Close;
seek(wenjian1,1);
write(wenjian1,rec);
closefile(wenjian1);
showmessage('谢谢您的注册!请重新进入系统!');

end else closefile(wenjian1);

end;

procedure Tqpmain.N6Click(Sender: TObject);
begin
spckck:=tspckck.Create(self);
spckck.ShowModal;
spckck.Free;
end;

procedure Tqpmain.N11Click(Sender: TObject);
begin
rkcxck:=trkcxck.Create(self);
rkcxck.ShowModal;
rkcxck.Free;
end;

procedure Tqpmain.N8Click(Sender: TObject);
begin
ckcxck:=tckcxck.Create(self);
ckcxck.ShowModal;
ckcxck.Free;
end;

procedure Tqpmain.N38Click(Sender: TObject);
begin
cktkck:=tcktkck.Create(self);
cktkck.ShowModal;
cktkck.Free;
end;

procedure Tqpmain.N40Click(Sender: TObject);
begin
rktkck:=trktkck.Create(self);
rktkck.ShowModal;
rktkck.Free;
end;

procedure Tqpmain.N42Click(Sender: TObject);
begin
tkcxck:=ttkcxck.Create(self);
tkcxck.ShowModal;
tkcxck.Free;
end;

procedure Tqpmain.N44Click(Sender: TObject);
begin
thcxck:=tthcxck.Create(self);
thcxck.ShowModal;
thcxck.Free;
end;

procedure Tqpmain.N36Click(Sender: TObject);
begin
khfkck:=tkhfkck.Create(self);
khfkck.ShowModal;
khfkck.Free;
end;

procedure Tqpmain.N46Click(Sender: TObject);
begin
fghsck:=tfghsck.Create(self);
fghsck.ShowModal;
fghsck.Free;
end;

procedure Tqpmain.N34Click(Sender: TObject);
begin
rszjzck:=trszjzck.Create(self);
rszjzck.ShowModal;
rszjzck.Free;
end;

procedure Tqpmain.N48Click(Sender: TObject);
begin
jzcxck:=tjzcxck.Create(self);
jzcxck.ShowModal;
jzcxck.Free;
end;

procedure Tqpmain.jvBitmapButton1click(Sender: TObject);
begin
aalabel1.Font.Color:=clred;
aalabel2.Font.Color:=clGreen;
aalabel3.Font.Color:=clGreen;
aalabel4.Font.Color:=clGreen;
aalabel5.Font.Color:=clGreen;
page1.Pages[0].Show;
end;

procedure Tqpmain.jvBitmapButton2click(Sender: TObject);
begin
aalabel2.Font.Color:=clred;
aalabel1.Font.Color:=clGreen;
aalabel3.Font.Color:=clGreen;
aalabel4.Font.Color:=clGreen;
aalabel5.Font.Color:=clGreen;
page1.Pages[1].Show;
end;

procedure Tqpmain.jvBitmapButton3click(Sender: TObject);
begin
aalabel3.Font.Color:=clred;
aalabel2.Font.Color:=clGreen;
aalabel1.Font.Color:=clGreen;
aalabel4.Font.Color:=clGreen;
aalabel5.Font.Color:=clGreen;
page1.Pages[2].Show;
end;

procedure Tqpmain.jvBitmapButton4click(Sender: TObject);
begin
aalabel4.Font.Color:=clred;
aalabel2.Font.Color:=clGreen;
aalabel3.Font.Color:=clGreen;
aalabel1.Font.Color:=clGreen;
aalabel5.Font.Color:=clGreen;
page1.Pages[3].Show;
end;

procedure Tqpmain.jvBitmapButton5click(Sender: TObject);
begin
aalabel5.Font.Color:=clred;
aalabel2.Font.Color:=clGreen;
aalabel3.Font.Color:=clGreen;
aalabel4.Font.Color:=clGreen;
aalabel1.Font.Color:=clGreen;
page1.Pages[4].Show;
end;

procedure Tqpmain.jvBitmapButton6click(Sender: TObject);
begin
if n6.Enabled then
qpmain.N6Click(self);
end;

procedure Tqpmain.jvBitmapButton7click(Sender: TObject);
begin
if n8.Enabled then
qpmain.N8Click(self);
end;

procedure Tqpmain.jvBitmapButton8click(Sender: TObject);
begin
if n38.Enabled then
qpmain.N38Click(self);
end;

procedure Tqpmain.jvBitmapButton9click(Sender: TObject);
begin
if n42.Enabled then
qpmain.N42Click(self);
end;

procedure Tqpmain.jvBitmapButton10click(Sender: TObject);
begin
if n9.Enabled then
qpmain.N9Click(self);
end;

procedure Tqpmain.jvBitmapButton11click(Sender: TObject);
begin
if n11.Enabled then
qpmain.N11Click(self);
end;

procedure Tqpmain.jvBitmapButton12click(Sender: TObject);
begin
if n40.Enabled then
qpmain.N40Click(self);
end;

procedure Tqpmain.jvBitmapButton13click(Sender: TObject);
begin
if n44.Enabled then
qpmain.N44Click(self);
end;

procedure Tqpmain.jvBitmapButton14click(Sender: TObject);
begin
if n12.Enabled then
qpmain.N12Click(self);
end;

procedure Tqpmain.jvBitmapButton15click(Sender: TObject);
begin
if n14.Enabled then
qpmain.N14Click(self);
end;

procedure Tqpmain.jvBitmapButton16click(Sender: TObject);
begin
if n16.Enabled then
qpmain.N16Click(self);
end;

procedure Tqpmain.jvBitmapButton17click(Sender: TObject);
begin
if n18.Enabled then
qpmain.N18Click(self);
end;

procedure Tqpmain.jvBitmapButton18click(Sender: TObject);
begin
if n19.Enabled then
qpmain.N19Click(self);
end;

procedure Tqpmain.jvBitmapButton19click(Sender: TObject);
begin
if n21.Enabled then
qpmain.N21Click(self);
end;

procedure Tqpmain.jvBitmapButton20click(Sender: TObject);
begin
if n23.Enabled then
qpmain.N23Click(self);
end;

procedure Tqpmain.jvBitmapButton21click(Sender: TObject);
begin
if n26.Enabled then
qpmain.N26Click(self);
end;

procedure Tqpmain.jvBitmapButton22click(Sender: TObject);
begin
if n34.Enabled then
qpmain.N34Click(self);
end;

procedure Tqpmain.jvBitmapButton23click(Sender: TObject);
begin
if n36.Enabled then
qpmain.N36Click(self);
end;

procedure Tqpmain.jvBitmapButton24click(Sender: TObject);
begin
if n46.Enabled then
qpmain.N46Click(self);
end;

procedure Tqpmain.jvBitmapButton25click(Sender: TObject);
begin
if n48.Enabled then
qpmain.N48Click(self);
end;

procedure Tqpmain.jvBitmapButton26click(Sender: TObject);
begin
if n50.Enabled then
qpmain.N50Click(self);
end;

procedure Tqpmain.jvBitmapButton27click(Sender: TObject);
begin
if n52.Enabled then
qpmain.N52Click(self);
end;

procedure Tqpmain.N50Click(Sender: TObject);
begin
//销售毛利润
lrcxck:=tlrcxck.Create(self);
lrcxck.ShowModal;
lrcxck.Free;
end;

procedure Tqpmain.N52Click(Sender: TObject);
begin
ybbcxck:=tybbcxck.Create(self);
ybbcxck.ShowModal;
ybbcxck.Free;
end;

procedure Tqpmain.N54Click(Sender: TObject);
var wj:string;
begin
sdg1.Path:=extractfilepath(application.ExeName);
//:='PJ'+formatdatetime('YYYYMM',date)+'.BF';
if sdg1.Execute then
begin
wj:=sdg1.Path+'\PJ'+formatdatetime('YYYYMMDD',date)+'.BF';
copyfile('pjsjk.mdb',pchar(wj),true);
end;
end;

procedure Tqpmain.N56Click(Sender: TObject);
begin
odg1.InitialDir:=extractfilepath(application.ExeName);
if odg1.Execute then
begin
if messagedlg('确认要恢复文件名为'+extractfilename(odg1.FileName)+'的数据备份吗？',
mtwarning,[mbyes,mbno],100)=mryes then
begin
dm1.qpsjk.Close;
copyfile(pchar(odg1.FileName),pchar(extractfilepath(application.ExeName)+'\pjsjk.mdb'),true);
showmessage('恢复成功！确定后请重起本系统！');
application.Terminate;
end;
end;
end;

procedure Tqpmain.N57Click(Sender: TObject);
begin
if messagedlg('确认要做数据初始化吗？',mtwarning,[mbyes,mbno],100)=mryes then
if messagedlg('请再次确认要做数据初始化吗？',mtwarning,[mbyes,mbno],100)=mryes then
begin
table3.SQL.Clear;
table3.SQL.Add('delete from spckd');
table3.ExecSQL;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from spckzk');
table3.ExecSQL;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from sprkd');
table3.ExecSQL;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from sprkzk');
table3.ExecSQL;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from sptkd');
table3.ExecSQL;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from sptkzk');
table3.ExecSQL;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from spthd');
table3.ExecSQL;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from spthzk');
table3.ExecSQL;
if messagedlg('确认要进行系统初始化吗？'+chr(13)
+'这将清空帐目总库、供货商、客户、库存、商品种类资料！',mtwarning,[mbyes,mbno],100)=mryes then
begin
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from zmzk');
table3.ExecSQL;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from ghszl');
table3.ExecSQL;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from khzl');
table3.ExecSQL;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from spkc');
table3.ExecSQL;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('delete from spk');
table3.ExecSQL;
table3.Open;
table3.Append;
table3['spmc']:='全部分类';
table3['sjmc']:='全部分类';
table3['spbh']:='00';
table3['sjbh']:='-1';
table3.UpdateBatch();
table3.Close;
end;
dm1.qpsjk.Close;
if CompactAndRepair('.\pjsjk.mdb','.\ls.mdb') then
begin
deletefile('.\pjsjk.mdb');
renamefile('.\ls.mdb','.\pjsjk.mdb');
end;
dm1.qpsjk.Connected;
end;
end;

Function Tqpmain.CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
var
oJetEng : JetEngine;
begin
sOldMDB := sProvider + 'Data Source=' + sOldMDB;
sNewMDB := sProvider + 'Data Source=' + sNewMDB;
try
oJetEng := CoJetEngine.Create;
oJetEng.CompactDatabase(sOldMDB, sNewMDB);
oJetEng := Nil;
Result := True;
except
oJetEng := Nil;
Result := False;
end;
end;


procedure Tqpmain.N59Click(Sender: TObject);
begin
dm1.qpsjk.Close;
if CompactAndRepair('.\pjsjk.mdb','.\ls.mdb') then
begin
deletefile('.\pjsjk.mdb');
renamefile('.\ls.mdb','.\pjsjk.mdb');
showmessage('压缩修复成功！');
end else
showmessage('压缩修复失败，请重起本软件后重试！');
dm1.qpsjk.Connected;
end;

procedure Tqpmain.jvBitmapButton28click(Sender: TObject);
begin
if n62.Enabled then
qpmain.N62Click(self);
end;

procedure Tqpmain.N62Click(Sender: TObject);
begin
spckzcck:=tspckzcck.Create(self);
spckzcck.ShowModal;
spckzcck.Free;
end;

end.