unit price1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DB, ADODB, DdeMan, ExtCtrls, Grids, DBGrids, Menus,Clipbrd;    type
  TForm1 = class(TForm)
    AC1: TADOConnection;
    Button1: TButton;
    DBGrid2: TDBGrid;
    PM2: TPopupMenu;
    MenuItem1: TMenuItem;
    Button2: TButton;
    AT2: TADOTable;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    StringField7: TStringField;
    DS2: TDataSource;
    AQ2: TADOQuery;
    StringField14: TStringField;
    StringField15: TStringField;
    StringField16: TStringField;
    StringField17: TStringField;
    StringField18: TStringField;
    StringField19: TStringField;
    StringField20: TStringField;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure PasteClipboardToDBGrid;
  end;    var
  Form1: TForm1;
  strStockID:string;    implementation    {$R *.dfm}    //結束程式
procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;    //程式起始
procedure TForm1.FormCreate(Sender: TObject);
begin
  AQ2.SQL.Clear;
  AQ2.SQL.Add('Delete from DataStock2');
  AQ2.Close;
  AQ2.ExecSQL;
end;    //選擇貼上
procedure TForm1.MenuItem1Click(Sender: TObject);
begin
   PasteClipboardToDBGrid;
end;    //執行貼上
procedure TForm1.PasteClipboardToDBGrid;
var
  sl1, sl2: TStringList;
  i, j,iCol: integer;
begin
  if Clipboard.HasFormat(CF_Text) then begin
    sl1 := TStringList.Create;
    sl2 := TStringList.Create;
    try
      sl1.Text := Clipboard.AsText;
      for i := 0 to sl1.Count -1 do begin
        AT2.Append;
        sl2.Clear;
        sl2.Delimiter := #9;
        sl2.DelimitedText := sl1.Strings[i];
        iCol := 0;
        for j := 0 to sl2.Count -1 do begin
          AT2.Fields[icol].Text:= sl2.Strings[j];
          Inc(iCol);
        end;
        AT2.Post;
      end;
    finally
      sl2.Free;
      sl1.Free;
    end;
  end;
  AQ2.SQL.Clear;
  AQ2.SQL.Add('select * from DataStock2');
  AQ2.Close;
  AQ2.open;
end;    //列顏色改變
procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Canvas:TCanvas;
begin
  Canvas := (Sender as TDBGrid).Canvas;
  if((AQ2.RecNo mod 2)=0) then
    Canvas.Brush.Color := clMoneyGreen
  else
    Canvas.Brush.Color := clSilver;
  Canvas.FillRect(Rect);
  DBGrid2.DefaultDrawDataCell(Rect, Column.Field, State);
end;    //確認下單
procedure TForm1.Button2Click(Sender: TObject);
begin
  AQ2.Edit;
  AQ2.post;
  AQ2.SQL.Clear;
  AQ2.SQL.Add('select * from DataStock2');
  AQ2.Close;
  AQ2.open;
  showmessage('已存檔');
end;    end.