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

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

?? goods.pas

?? delphi的一個開發實例
?? PAS
?? 第 1 頁 / 共 3 頁
字號: 
        end;
        for i:=0 to BH_Count-1 do
        begin
            J_R:=B_R+(i*K_R); //截止度數等于開始度數加跨度和循環次數的積
            Str_JS:=FloatToStr(J_R); //把每一次循環后的球面度數轉換成字符串
            EG1.Text:=Str_No+Str_JS+'_';
            EG1.Text:=Copy(EG1.Text,1,length(EG1.Text)-1);  //取得商品代碼
            tempstr:='';tempsql:='';tempText:='';openstr:='';
            openstr:='Select * from [Goods_Information]';
            tempstr:='insert into [Goods_Information](Goods_NO,Goods_Modal_No,Goods_Modal,Goods_Cards_NO,Goods_Cards,Goods_Brand_NO,Goods_Brand,Norms_Type_NO,Norms_Type,';
            tempstr:=tempstr+'Goods_Sphere,Goods_Color_NO,Goods_Color,Goods_Coding,Enroll_Brand,Factory,Goods_Name,Goods_abbrev,Base_Monad,Whole_Monad,Valid_Month,Valid_Day,Remark)';
            tempsql:='values ('''+Trim(EG1.Text)+''','''+Trim(EG2.Text)+''','''+Trim(EG3.Text)+''','''+Trim(EG4.Text)+''','''+Trim(EG5.Text)+''','''+Trim(EG6.Text)+''','''+Trim(EG7.Text)+''','''+Trim(EG8.Text)+''','''+Trim(EG9.Text)+''','''+Trim(Str_JS)+''','''+Trim(EG12.Text)+''','''+Trim(EG13.Text)+''','''+Trim(EG14.Text)+''','''+Trim(EG15.Text)+''','''+Trim(EG16.Text)+''','''+Trim(EG17.Text)+''','''+Trim(EG18.Text)+''','''+Trim(EG19.Text)+''','''+Trim(EG20.Text)+''','''+Trim(EG21.Text)+''','''+Trim(EG22.Text)+''','''+Trim(EG23.Text)+''')';
            tempText:=Trim(tempstr)+Trim(tempsql);
            Lab_XD.Caption:=Str_JS;
            with frm_data.ClientDataSet_Add do
            begin
                Close;
                CommandText:='';
                CommandText:='Select * from [Goods_Information] where Goods_NO='''+Trim(Eg1.Text)+'''';
                try
                    open;
                    if frm_data.ClientDataSet_Add.RecordCount>0 then
                    begin
                        Application.MessageBox('操作失敗！存在了同類商品編號！請確認！',Pchar(Application.Title),MB_ICONWarning);
                        Exit;
                    end
                    else
                    begin
                        with frm_data.Client_Goods do
                        begin
                            frm_data.Client_Goods.Open;
                            frm_data.Client_Goods.Insert;
                            frm_data.Client_Goods.FieldByName('Goods_NO').AsString:=Trim(EG1.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Modal_No').AsString:=Trim(EG2.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Modal').AsString:=Trim(EG3.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Cards_NO').AsString:=Trim(EG4.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Cards').AsString:=Trim(EG5.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Brand_NO').AsString:=Trim(EG6.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Brand').AsString:=Trim(EG7.Text);
                            frm_data.Client_Goods.FieldByName('Norms_Type_NO').AsString:=Trim(EG8.Text);
                            frm_data.Client_Goods.FieldByName('Norms_Type').AsString:=Trim(EG9.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Sphere').AsString:=Trim(Str_JS);
                            frm_data.Client_Goods.FieldByName('Goods_Color_NO').AsString:=Trim(EG12.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Color').AsString:=Trim(EG13.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Coding').AsString:=Trim(EG14.Text);
                            frm_data.Client_Goods.FieldByName('Enroll_Brand').AsString:=Trim(EG15.Text);
                            frm_data.Client_Goods.FieldByName('Factory').AsString:=Trim(EG16.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Name').AsString:=Trim(EG17.Text);
                            frm_data.Client_Goods.FieldByName('Goods_abbrev').AsString:=Trim(EG18.Text);
                            frm_data.Client_Goods.FieldByName('Base_Monad').AsString:=Trim(EG19.Text);
                            frm_data.Client_Goods.FieldByName('Whole_Monad').AsString:=Trim(EG20.Text);
                            frm_data.Client_Goods.FieldByName('Valid_Month').AsString:=Trim(EG21.Text);
                            frm_data.Client_Goods.FieldByName('Valid_Day').AsString:=Trim(EG22.Text);
                            frm_data.Client_Goods.FieldByName('Remark').AsString:=Trim(EG23.Text);
                            try
                                post;
                                frm_data.Client_Goods.SaveToFile('Client_Goods_Information.cds');
                            except
                                Application.MessageBox('系統錯誤！保存【商品基本信息表】時出錯！請確認！',Pchar(Application.Title),MB_ICONWarning);
                                Exit;
                            end;
                        end;
                    end;
                except
                    Application.MessageBox('系統錯誤！打開【商品基本信息表】時出錯！請確認！',Pchar(Application.Title),MB_ICONWarning);
                    Exit;
                end;
            end;
        end;
        Application.MessageBox('恭喜你！利用向導保存【商品基本信息】成功！請確認！',Pchar(Application.Title),MB_ICONWarning);
        Lab_XD.Caption:='';
    end;
    //柱面度數批量錄入
    if (CheckBox6.Checked=True) and (CheckBox4.Checked=False) then  //柱面度數批量錄入
    begin
        if (Trim(Edit_KD.Text)='') or (trim(Edit_KS.Text)='') or (trim(Edit_JS.Text)='') then
        begin
            Application.MessageBox('錯誤操作，你已經選擇【球面度數批量錄入】，'+#13#10#13+'【變化幅度】、【起始度數】、【截止度數】均不能為空！請確認！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        if Trim(EG10.Text)='' then
        begin
            Application.MessageBox('錯誤操作，你已經選擇【柱面度數批量錄入】，必須有一個具體的【球面度數】'+#13#10#13+'請選擇一個具體的【球面度數】進行錄入，請確認！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        for i:=0 to BH_Count-1 do
        begin
            J_R:=B_R+(i*K_R); //截止度數等于開始度數加跨度和循環次數的積
            Str_JS:=FloatToStr(J_R); //把每一次循環后的球面度數轉換成字符串
            EG1.Text:=Str_No+Str_JS+'_';
            EG1.Text:=Copy(EG1.Text,1,length(EG1.Text)-1);  //取得商品代碼
            tempstr:='';tempsql:='';tempText:='';openstr:='';
            openstr:='Select * from [Goods_Information]';
            tempstr:='insert into [Goods_Information](Goods_NO,Goods_Modal_No,Goods_Modal,Goods_Cards_NO,Goods_Cards,Goods_Brand_NO,Goods_Brand,Norms_Type_NO,Norms_Type,';
            tempstr:=tempstr+'Goods_Sphere,Goods_Column,Goods_Color_NO,Goods_Color,Goods_Coding,Enroll_Brand,Factory,Goods_Name,Goods_abbrev,Base_Monad,Whole_Monad,Valid_Month,Valid_Day,Remark)';
            tempsql:='values ('''+Trim(EG1.Text)+''','''+Trim(EG2.Text)+''','''+Trim(EG3.Text)+''','''+Trim(EG4.Text)+''','''+Trim(EG5.Text)+''','''+Trim(EG6.Text)+''','''+Trim(EG7.Text)+''','''+Trim(EG8.Text)+''','''+Trim(EG9.Text)+''','''+Trim(EG10.Text)+''','''+Trim(Str_JS)+''','''+Trim(EG12.Text)+''','''+Trim(EG13.Text)+''','''+Trim(EG14.Text)+''','''+Trim(EG15.Text)+''','''+Trim(EG16.Text)+''','''+Trim(EG17.Text)+''','''+Trim(EG18.Text)+''','''+Trim(EG19.Text)+''','''+Trim(EG20.Text)+''','''+Trim(EG21.Text)+''','''+Trim(EG22.Text)+''','''+Trim(EG23.Text)+''')';
            tempText:=Trim(tempstr)+Trim(tempsql);
            Lab_XD.Caption:=Str_JS;
            with frm_data.ClientDataSet_Add do
            begin
                Close;
                CommandText:='';
                CommandText:='Select * from [Goods_Information] where Goods_NO='''+Trim(Eg1.Text)+'''';
                try
                    open;
                    if frm_data.ClientDataSet_Add.RecordCount>0 then
                    begin
                        Application.MessageBox('操作失敗！存在了同類商品編號！請確認！',Pchar(Application.Title),MB_ICONWarning);
                        Exit;
                    end
                    else
                    begin
                        with frm_data.Client_Goods do
                        begin
                            frm_data.Client_Goods.Open;
                            frm_data.Client_Goods.Insert;
                            frm_data.Client_Goods.FieldByName('Goods_NO').AsString:=Trim(EG1.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Modal_No').AsString:=Trim(EG2.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Modal').AsString:=Trim(EG3.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Cards_NO').AsString:=Trim(EG4.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Cards').AsString:=Trim(EG5.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Brand_NO').AsString:=Trim(EG6.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Brand').AsString:=Trim(EG7.Text);
                            frm_data.Client_Goods.FieldByName('Norms_Type_NO').AsString:=Trim(EG8.Text);
                            frm_data.Client_Goods.FieldByName('Norms_Type').AsString:=Trim(EG9.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Sphere').AsString:=Trim(EG10.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Column').AsString:=Trim(Str_JS);
                            frm_data.Client_Goods.FieldByName('Goods_Color_NO').AsString:=Trim(EG12.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Color').AsString:=Trim(EG13.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Coding').AsString:=Trim(EG14.Text);
                            frm_data.Client_Goods.FieldByName('Enroll_Brand').AsString:=Trim(EG15.Text);
                            frm_data.Client_Goods.FieldByName('Factory').AsString:=Trim(EG16.Text);
                            frm_data.Client_Goods.FieldByName('Goods_Name').AsString:=Trim(EG17.Text);
                            frm_data.Client_Goods.FieldByName('Goods_abbrev').AsString:=Trim(EG18.Text);
                            frm_data.Client_Goods.FieldByName('Base_Monad').AsString:=Trim(EG19.Text);
                            frm_data.Client_Goods.FieldByName('Whole_Monad').AsString:=Trim(EG20.Text);
                            frm_data.Client_Goods.FieldByName('Valid_Month').AsString:=Trim(EG21.Text);
                            frm_data.Client_Goods.FieldByName('Valid_Day').AsString:=Trim(EG22.Text);
                            frm_data.Client_Goods.FieldByName('Remark').AsString:=Trim(EG23.Text);
                            try
                                post;
                                frm_data.Client_Goods.SaveToFile('Client_Goods_Information.cds');
                            except
                                Application.MessageBox('系統錯誤！保存【商品基本信息表】時出錯！請確認！',Pchar(Application.Title),MB_ICONWarning);
                                Exit;
                            end;
                        end;
                    end;
                except
                    Application.MessageBox('系統錯誤！打開【商品基本信息表】時出錯！請確認！',Pchar(Application.Title),MB_ICONWarning);
                    Exit;
                end;
            end;
        end;
        Application.MessageBox('恭喜你！利用向導保存【商品基本信息】成功！請確認！',Pchar(Application.Title),MB_ICONWarning);
        Lab_XD.Caption:='';
    end;
end;
procedure Tfrm_Goods.Cmd_XHClick(Sender: TObject);
begin
    Str_NO:=Str_NO+Trim(EG8.Text)+'_';
end;

procedure Tfrm_Goods.EG10Exit(Sender: TObject);
begin
    Str_NO:=Str_NO+Trim(EG10.Text)+'_';
    EG1.Text:=Str_NO ;
end;

procedure Tfrm_Goods.EG11Exit(Sender: TObject);
begin
    Str_NO:=Str_NO+Trim(EG11.Text)+'_';
    EG1.Text:=Str_NO;
end;

procedure Tfrm_Goods.CheckBox1Click(Sender: TObject);
begin
    if CheckBox1.Checked=True then
    begin
        EG8.Text:=''; EG8.Text:='';
        EG8.Clear; EG9.Clear;
        Cmd_XH.Enabled:=True;
        EG8.Enabled:=True;
        EG9.Enabled:=True;
    end;
    if CheckBox1.Checked=False then
    begin
        EG8.Text:=''; EG8.Text:='';
        EG8.Clear; EG9.Clear;
        Cmd_XH.Enabled:=False;
        EG8.Enabled:=False;
        EG9.Enabled:=False;
    end;
end;

procedure Tfrm_Goods.CheckBox2Click(Sender: TObject);
begin
    if CheckBox2.Checked=True then
    begin
        EG12.Text:='';  EG13.Text:='';
        EG12.Clear;     EG13.Clear;
        Cmd_YS.Enabled:=True;
        EG12.Enabled:=True;
        EG13.Enabled:=True;
    end;
    if CheckBox2.Checked=False then
    begin
        EG12.Text:=''; EG12.Text:='';
        EG12.Clear;    EG13.Clear;
        Cmd_YS.Enabled:=False;
        EG12.Enabled:=False;
        EG13.Enabled:=False;
    end;
end;

procedure Tfrm_Goods.EG12Exit(Sender: TObject);
begin
    //Str_NO:=Str_NO+Trim(EG12.Text)+'_';
end;

procedure Tfrm_Goods.EG8Exit(Sender: TObject);
begin
    Str_NO:=Str_NO+Trim(EG8.Text)+'_';
    EG1.Text:=Str_NO;
end;

procedure Tfrm_Goods.SpeedButton3Click(Sender: TObject);
begin
    cLOSE;
end;

procedure Tfrm_Goods.SpeedButton9Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Goods.SpeedButton6Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Goods.SpeedButton12Click(Sender: TObject);
begin
    with frm_data.Client_Goods do
    begin
        try
            frm_data.Client_Goods.open;
            frm_data.Client_Goods.ApplyUpdates(-1);
        except
            Application.MessageBox('系統錯誤，系統在提交【商品信息】數據庫更新時出錯！',Pchar(Application.Title),MB_ICONWarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Goods.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    frm_data.ClientDataSet_Add.Close;
    frm_data.Client_Goods.Close;
    action:=cafree;
end;

end.

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
日本一区二区在线不卡| 日韩午夜三级在线| 国产精品一区二区91| 日本三级亚洲精品| 一区二区三区不卡视频| 一区二区三区欧美| 亚洲精品日产精品乱码不卡| 国产精品欧美久久久久无广告 | 亚洲最色的网站| 国产精品网站在线播放| 欧美精彩视频一区二区三区| 精品88久久久久88久久久| 2021国产精品久久精品| 久久嫩草精品久久久久| 中文字幕高清不卡| 亚洲人成电影网站色mp4| 亚洲精品免费在线播放| 亚洲午夜久久久久久久久久久| 亚洲成人免费观看| 日本大胆欧美人术艺术动态| 午夜视频在线观看一区| 奇米四色…亚洲| 国产在线视频一区二区| jlzzjlzz亚洲日本少妇| 在线这里只有精品| 制服丝袜成人动漫| 久久免费视频一区| 亚洲免费在线看| 奇米在线7777在线精品| 国产成人av一区| 欧美亚洲国产bt| 欧美tickle裸体挠脚心vk| 国产欧美久久久精品影院| 亚洲精品国产精华液| 青青草原综合久久大伊人精品优势| 国产在线视频一区二区| 色av成人天堂桃色av| 日韩欧美国产三级| 成人免费在线观看入口| 美女国产一区二区三区| 欧美调教femdomvk| 精品国产伦一区二区三区观看方式 | 91在线高清观看| 欧美日韩精品免费| www久久精品| 一片黄亚洲嫩模| 国产美女一区二区三区| 欧美在线999| 欧美国产丝袜视频| 日韩中文字幕不卡| 99精品久久久久久| 丝袜国产日韩另类美女| 日本国产一区二区| 欧美性猛交xxxx黑人交| 国产人成亚洲第一网站在线播放| 一区二区三区日韩精品| 极品少妇xxxx精品少妇| 色av成人天堂桃色av| 亚洲人成电影网站色mp4| 久草精品在线观看| 欧美日韩国产区一| 中文字幕中文字幕一区二区| 日韩高清电影一区| 色视频成人在线观看免| 久久久久久久久久看片| 天堂成人免费av电影一区| eeuss鲁片一区二区三区在线看| 欧美一二三区精品| 亚洲高清视频中文字幕| 日本精品裸体写真集在线观看| 中文一区在线播放| 国产伦理精品不卡| 精品少妇一区二区三区| 青草国产精品久久久久久| 欧美高清dvd| 亚洲国产欧美日韩另类综合 | 久久天堂av综合合色蜜桃网| 五月综合激情日本mⅴ| 欧美三级乱人伦电影| 一区二区三区高清在线| 91丨九色丨国产丨porny| 国产精品的网站| 97国产精品videossex| 亚洲日本成人在线观看| 9人人澡人人爽人人精品| 久久免费偷拍视频| 成人午夜精品一区二区三区| 国产亚洲精品久| 成人免费毛片a| 一区二区在线免费观看| 欧美视频在线观看一区| 日韩1区2区日韩1区2区| 精品日韩欧美一区二区| 国产91丝袜在线播放| 亚洲国产高清aⅴ视频| 成人性色生活片免费看爆迷你毛片| 国产精品欧美经典| 欧美在线一区二区三区| 日本三级亚洲精品| 国产欧美日韩三级| 精品视频999| 国产精品1区二区.| 亚洲色图制服诱惑| 日韩你懂的在线播放| 国产精品亚洲视频| 亚洲国产综合在线| 久久网站热最新地址| 色综合一区二区| 久久精品国产久精国产爱| 欧美国产精品v| 制服丝袜在线91| 成人夜色视频网站在线观看| 亚洲一二三级电影| 久久久久久一级片| 在线观看亚洲a| 国产九色sp调教91| 亚洲成人中文在线| 国产精品毛片无遮挡高清| 欧美日韩久久一区| 成人福利在线看| 免费成人在线网站| 一区二区高清在线| 国产免费成人在线视频| 91麻豆精品国产91久久久久| 成人精品国产一区二区4080| 婷婷综合另类小说色区| 成年人午夜久久久| 亚洲自拍与偷拍| 国产视频一区二区在线| 91精品在线观看入口| 成人国产精品免费观看视频| 六月丁香综合在线视频| 一区二区三区在线看| 国产日韩欧美不卡在线| 欧美电影免费提供在线观看| 91香蕉视频污在线| 国产xxx精品视频大全| 精品中文av资源站在线观看| 亚洲精选视频免费看| 日本一区二区成人在线| 日韩精品一区二区三区视频播放| 日本一二三四高清不卡| 日韩欧美黄色影院| 天堂资源在线中文精品| 国产一区二区在线免费观看| 日本亚洲视频在线| 午夜不卡av在线| 亚洲成人自拍网| 亚洲尤物在线视频观看| 亚洲精品综合在线| 伊人一区二区三区| 一区二区三区日韩在线观看| 最新久久zyz资源站| 日本一区二区三区电影| 国产婷婷色一区二区三区四区| 欧美一区二区高清| 日韩午夜三级在线| 亚洲精品在线一区二区| 久久久亚洲精华液精华液精华液| 日韩欧美激情一区| 久久久亚洲午夜电影| 国产精品网站在线观看| 国产精品欧美一级免费| 亚洲美腿欧美偷拍| 一区二区三区在线视频免费 | 国产精品成人一区二区三区夜夜夜| 久久久久久久久久久久久夜| 久久精品欧美一区二区三区不卡| 国产日韩精品视频一区| 中文字幕av资源一区| 亚洲人成影院在线观看| 亚洲第一精品在线| 免费成人在线网站| 国产成人精品免费| 91美女在线观看| 欧美美女一区二区在线观看| 制服丝袜亚洲精品中文字幕| 久久众筹精品私拍模特| 国产精品网站在线播放| 亚洲永久精品国产| 狠狠狠色丁香婷婷综合久久五月| 国产精品综合二区| 色香蕉久久蜜桃| 69成人精品免费视频| 国产午夜久久久久| 亚洲主播在线观看| 国产剧情在线观看一区二区 | 亚洲在线观看免费| 国产一区二区精品久久| 91久久国产最好的精华液| 欧美丰满少妇xxxbbb| 欧美国产综合一区二区| 午夜激情一区二区| 成人v精品蜜桃久久一区| 欧美色大人视频| 欧美韩国日本综合| 美洲天堂一区二卡三卡四卡视频| 不卡的av中国片| 欧美一区二区久久久| 亚洲欧洲国产日韩|