數(shù)據(jù)錄入時(shí)自動(dòng)復(fù)制原記錄

2019-11-18 18:30:17

字體：大中小

供稿：網(wǎng)友

         在數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的數(shù)據(jù)錄入過(guò)程中，各條記錄之間有大量的重復(fù)數(shù)據(jù)，如果每條記錄都讓錄入人員全部手工錄入，其間的重復(fù)勞動(dòng)是相當(dāng)大的，既降低了工作效率，又顯得我們的軟件不夠“專業(yè)”。
     其實(shí)我們完全可以用代碼來(lái)實(shí)現(xiàn)數(shù)據(jù)庫(kù)表記錄的自動(dòng)復(fù)制，當(dāng)客戶錄入一條新的記錄的時(shí)候，我們可以把當(dāng)前記錄的數(shù)據(jù)復(fù)制到錄入界面的各輸入框中，客戶只需做很少的修改，就完成了一條新記錄的編輯，然后直接保存就可以了。
     本文的示例用 Delphi5.0 制作，使用 ADO 方法存取 access 數(shù)據(jù)庫(kù)中的表 test，表的第一個(gè)字段是“自動(dòng)編碼”字段，在記錄復(fù)制時(shí)要跳過(guò)。首先在 Form1 上添加 ADOConnection1、ADODataSet1、DataSource1、DBGrid1 等數(shù)據(jù)庫(kù)相關(guān)組件，使用連接向?qū)О?ADOConnection1 與 Access 數(shù)據(jù)庫(kù)連接起來(lái)，把 ADOConnection1 的 LoginPRompt 屬性設(shè)置為 False，其它組件的對(duì)應(yīng)屬性設(shè)置如下：
    ADODataSet1.Connection :=ADOConnection1;
    ADODataSet1.CommandText :='select * from test';
    ADODataSet1.Active :=True;
    DataSource1.DataSet :=ADODataSet1;
    DBGrid1.DataSource :=DataSource1;
    這樣以來(lái)，就可以在 DBGrid 中看到數(shù)據(jù)庫(kù)表 test 中的數(shù)據(jù)了。
     然后可以在窗體上添加一些數(shù)據(jù)敏感的數(shù)據(jù)輸入控件(如 DBEdit 等)，將其 DataSource 屬性設(shè)為 DataSource1，再分別與各字段綁定起來(lái)。
    再在窗體上添加 2 個(gè)按鈕 Button1 和 Button2，它們的觸發(fā)事件如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
       strList: TStringList; // 聲明字符串列表
       i: integer;
    begin
      strList :=TStringList.Create;
      for i :=0 to ADODataSet1.FieldCount-1 do
        strList.Add(ADODataSet1.Fields[i].AsString);
            // 把各字段的值保存到 TStringList 中。不能應(yīng)用數(shù)組，
            // 因?yàn)閿?shù)組不能保存不同類型的數(shù)據(jù)。
      ADODataSet1.Insert;   // 插入一條新記錄
      for i :=1 to form1.ADODataSet1.FieldCount-1 do
        ADODataSet1.Fields[i].AsString := strList[i];
            // 把 TStringList 中的數(shù)據(jù)寫回到新的記錄中。
            // 注意 TStringList 的下標(biāo)從 1 開(kāi)始，跳過(guò)了表的“自動(dòng)編碼”字段。
      strList.Free;
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
      ADODataSet1.Post; // 保存新記錄
    end;

     程序編譯運(yùn)行后，按 Button1 按鈕，就會(huì)添加一條新的記錄，記錄的內(nèi)容為添加前記錄指針指向的記錄的內(nèi)容。我們可以對(duì)現(xiàn)有數(shù)據(jù)做些改動(dòng)，然后按 Button2 按鈕保存新記錄。程序的有關(guān)說(shuō)明在代碼中。

上一篇：怎樣在自己的進(jìn)銷存里導(dǎo)入速達(dá)、管家婆和用友的數(shù)據(jù)

下一篇：使用OLE拖放不同程序間的數(shù)據(jù)