CHIH~檔案上來了... - Delphi K.Top 討論區

發表時間：2003-03-04 11:29:02

IP:211.74.xxx.xxx 未訂閱

1.DBEdit元件有二個屬性需要設定DataSource及DataField..//都以Form1修改 2.UpdateSQL元件上按右鍵,UpDateSQL Editor點進去,有一個Key Fields,這裡你要點選你的KEY值,然後右邊那個是你需要去更新的欄位,設定好後,左下角有一個GenerateSQL,按下去後就產生你的SQL語法了..然後你要把所有欄位加到Query1裡面 TRY TRY SEE..

unit customer01;    interface    uses
  Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
  Dialogs, DBCtrls, DB, DBTables, Mask, ExtCtrls, Grids, DBGrids, DBActns,
  ActnList, ToolWin, ComCtrls, ImgList;    type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    DBGrid1: TDBGrid;
    RadioGroup1: TRadioGroup;
    Edit10: TEdit;
    Edit11: TEdit;
    Button8: TButton;
    Query1: TQuery;
    Button9: TButton;
    UpdateSQL1: TUpdateSQL;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit1: TDBEdit;
    Query1CustomNO: TStringField;
    Query1Customer: TStringField;
    Query1SCustomer: TStringField;
    Query1Boss: TStringField;
    Query1Number: TStringField;
    Query1CPhone: TStringField;
    Query1TPhone: TStringField;
    Query1TFax: TStringField;
    Query1TAddress: TStringField;
    procedure FormActivate(Sender: TObject);
    procedure Query1BeforeDelete(DataSet: TDataSet);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    { private declarations }
  public
    { public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.FormActivate(Sender: TObject);
begin //開啟表單就連線
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM "customer.DB" ');
  Query1.Close;
  Query1.Open;
end;    procedure TForm1.Query1BeforeDelete(DataSet: TDataSet);
begin //刪除確認
  if messagedlg('確定要刪除嗎？', mtinformation, [mbyes, mbno], 0) = mrno then abort();
end;    procedure TForm1.Button1Click(Sender: TObject);
begin //首筆
  Query1.First;
end;    procedure TForm1.Button4Click(Sender: TObject);
begin //末筆
  Query1.Last;
end;    procedure TForm1.Button2Click(Sender: TObject);
begin //上筆
  if Query1.bof = true then
    button1click(sender)
  else
    Query1.Prior;
end;    procedure TForm1.Button3Click(Sender: TObject);
begin //下筆
  if Query1.Eof = true then
    button4click(sender)
  else
    Query1.Next;
end;    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin //關閉表單就切斷連線
  Query1.Close;
  Query1.free; //關閉表單就釋放記憶體
  Action := caFree; //按X關閉視窗
  DBEdit2.DataField;
  DBEdit2.DataSource;
end;    procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin //滾輪向上則往上移
  Button3click(sender);
end;    procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin //滾輪向下則往下移
  Button2click(sender);
end;    procedure TForm1.FormCreate(Sender: TObject);
begin //快速尋找面板
  RadioGroup1.Columns := 1;
  RadioGroup1.Items.add('尋找客戶名稱');
  RadioGroup1.Items.Add('尋找客戶編號');
end;    procedure TForm1.Button8Click(Sender: TObject);
begin //快速搜尋    end;    procedure TForm1.Button5Click(Sender: TObject);
begin //新增
  Query1.Insert;
  dbedit1.SetFocus;
end;    procedure TForm1.Button6Click(Sender: TObject);
begin //修改
  Query1.Edit;
  dbedit1.SetFocus;
end;    procedure TForm1.Button7Click(Sender: TObject);
begin //刪除
  while not query1.Eof do
    begin
      query1.Delete;
      query1.First;
    end;
end;    procedure TForm1.Button9Click(Sender: TObject);
begin //儲存
  try
    Query1.Post;
    Query1.ApplyUpdates;
  except
    showmessage('儲存失敗');
  end;
end;
end.

發表人 - chih 於 2003/03/04 11:48:30