亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? main.pas

?? 汽車配件管理系統 采用ACCESS數據庫 配件銷售類公司適用 。 主要是目錄樹的學習
?? PAS
?? 第 1 頁 / 共 2 頁
字號: 
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);
var zcm:string;

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
欧美aⅴ一区二区三区视频| 91精品欧美综合在线观看最新 | 欧美电影一区二区三区| 成人午夜在线免费| 国产99久久久国产精品潘金网站| 韩国女主播成人在线| 国产美女一区二区三区| 青青草国产成人av片免费| 免费成人av在线播放| 精品一区二区日韩| 精品一区二区精品| 国产成人一级电影| 99久久免费国产| 一本久久综合亚洲鲁鲁五月天 | 国产一区不卡视频| 久久精品国产亚洲一区二区三区| 午夜精品久久久久久久99樱桃| 亚洲激情六月丁香| 亚洲精品成人精品456| 亚洲一区二区视频在线| 亚洲一区二区av电影| 亚洲一区中文日韩| 麻豆成人综合网| 麻豆精品视频在线观看免费| 久久精品国产99国产精品| 狠狠色丁香婷综合久久| 成人动漫精品一区二区| 成人午夜电影网站| 一本一本大道香蕉久在线精品| 色哟哟欧美精品| 日韩欧美在线网站| 国产精品进线69影院| 午夜精品久久久久久久99樱桃| 秋霞午夜av一区二区三区| 国产精品123| 在线国产亚洲欧美| 日韩欧美一区在线| 久久美女艺术照精彩视频福利播放| 国产精品网站一区| 性久久久久久久| 成人综合婷婷国产精品久久免费| 91免费观看视频在线| 精品久久久久久久人人人人传媒| 国产精品女主播av| 日本aⅴ亚洲精品中文乱码| 国产电影一区二区三区| 欧美日韩一区二区不卡| 久久欧美中文字幕| 男女男精品视频| 在线免费不卡视频| 中文字幕av不卡| 免费美女久久99| 色综合网色综合| 久久你懂得1024| 蜜臀va亚洲va欧美va天堂| 成人av网站免费| 日韩精品中午字幕| 午夜精品视频在线观看| 91视频在线观看| 久久婷婷久久一区二区三区| 欧美aⅴ一区二区三区视频| 欧美在线短视频| 亚洲激情六月丁香| 色综合 综合色| 亚洲视频在线一区观看| 另类综合日韩欧美亚洲| 欧美日韩激情一区| 亚洲婷婷综合久久一本伊一区| 天天综合日日夜夜精品| 91在线视频免费91| 色哦色哦哦色天天综合| 欧美一区二区三区四区五区| 亚洲激情自拍偷拍| 91福利小视频| 亚洲成人av资源| 欧美亚洲图片小说| 亚洲第一精品在线| 欧美羞羞免费网站| 视频一区国产视频| 欧美一级二级三级蜜桃| 日韩成人精品视频| 欧美日韩国产bt| 亚洲不卡av一区二区三区| 一本大道久久a久久综合| 国产精品久线观看视频| 国产一区二区中文字幕| 欧美一区二区三区在线看| 久久精品国产免费看久久精品| 日韩一区二区三区av| 国产综合久久久久久久久久久久| 精品91自产拍在线观看一区| 国产一区二区福利视频| 亚洲天堂av一区| 欧美酷刑日本凌虐凌虐| 午夜精品福利在线| 欧美精品一区二区不卡| 国产剧情一区二区三区| 中文字幕日韩一区| 91蜜桃视频在线| 无吗不卡中文字幕| 久久综合久久久久88| 成人高清视频在线| 日韩精品免费专区| www久久精品| 91在线视频播放| 日韩电影在线观看网站| 国产精品婷婷午夜在线观看| 欧美视频一区在线观看| 狠狠色丁香久久婷婷综合_中| 久久久国产精华| 99久久精品99国产精品| 视频一区在线视频| 国产人伦精品一区二区| 欧美日韩免费观看一区二区三区| 久久国产精品99久久久久久老狼| 中文字幕五月欧美| 欧美精品九九99久久| 国产精品一区二区久久精品爱涩 | 国产精品视频九色porn| 欧美日韩dvd在线观看| 国产中文一区二区三区| **欧美大码日韩| 制服丝袜在线91| 色综合天天性综合| 国产成人免费在线观看| 日韩中文字幕不卡| 日产精品久久久久久久性色| 国产亚洲午夜高清国产拍精品| 欧美日韩国产影片| 成人av高清在线| 国产精品中文字幕欧美| 日本亚洲视频在线| 亚洲综合无码一区二区| 久久久久9999亚洲精品| 欧美四级电影在线观看| 久久国产精品99久久人人澡| 亚洲国产精品麻豆| 亚洲欧美aⅴ...| 国产精品电影一区二区三区| 精品国产91亚洲一区二区三区婷婷| 欧美写真视频网站| 日本伦理一区二区| 91麻豆免费看片| 99视频有精品| 成人av一区二区三区| 国内精品国产成人国产三级粉色| 亚洲午夜激情网站| 亚洲天堂成人在线观看| 一区精品在线播放| 一区二区中文字幕在线| 国产精品久久久久久久午夜片 | 国产一区二区三区四| 蜜桃视频免费观看一区| 一区二区三区欧美| 国产精品五月天| 久久久精品tv| 久久久久久日产精品| 日韩精品一区二区三区中文精品| 91片黄在线观看| 波多野结衣一区二区三区| 国产一区二区三区综合| 国产一区二区三区香蕉| 国产九色精品成人porny| 九九国产精品视频| 成人小视频免费观看| 色诱亚洲精品久久久久久| 欧美视频一区在线观看| 日韩欧美国产系列| 国产亚洲欧美日韩在线一区| 欧美经典一区二区| 一区在线观看视频| 亚洲一区视频在线观看视频| 视频一区免费在线观看| 国产精品一级片| 色老头久久综合| 精品久久人人做人人爰| 国产精品久久久久一区二区三区| 一区二区三区影院| 男男gaygay亚洲| 成人妖精视频yjsp地址| 精品视频在线视频| 久久夜色精品一区| 17c精品麻豆一区二区免费| 亚洲一区二区三区视频在线播放 | 精品制服美女久久| 成人精品免费看| 欧美日韩亚洲综合| 2021国产精品久久精品| 国产精品污网站| 亚洲综合在线视频| 久久成人精品无人区| 国产不卡视频在线观看| 91丨porny丨国产入口| 欧美理论在线播放| 精品日韩成人av| 亚洲乱码一区二区三区在线观看| 日韩国产精品久久| 99re免费视频精品全部| 2023国产一二三区日本精品2022| 亚洲一区av在线|