unit chuku;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls,
  ComCtrls;

type
  TFormchuku = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    ADOTable1DSDesigner2: TWideStringField;
    ADOTable1DSDesigner3: TWideStringField;
    ADOTable1DSDesigner4: TBCDField;
    ADOTable1DSDesigner5: TIntegerField;
    ADOTable1DSDesigner6: TWideStringField;
    ADOTable1DSDesigner7: TWideStringField;
    ADOTable1DSDesigner9: TWideStringField;
    Panel2: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    ADOTable1DSDesigner: TWideStringField;
    ADOTable1DSDesigner8: TDateTimeField;
    ADOTable1DSDesigner10: TWideStringField;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    DateTimePicker1: TDateTimePicker;
    Button9: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formchuku: TFormchuku;

implementation

uses datamodel, quhuo, report2;

{$R *.dfm}

procedure TFormchuku.Button1Click(Sender: TObject);
var
  j:Integer;

begin
  Formquhuo:=TFormquhuo.Create(Self);
  try
    if Formquhuo.ShowModal=mrOk then
    Begin
      for j:= 0 to Formquhuo.DBGrid1.SelectedRows.Count-1 do
      Begin
        ADOTable1.Append;
        Formquhuo.ADOTable1.GotoBookmark(pointer(Formquhuo.DBGrid1.SelectedRows.Items[j]));
        ADOTable1['條碼']:=Formquhuo.ADOTable1['條碼'];
        ADOTable1['貨物名稱']:=Formquhuo.ADOTable1['貨物名稱'];
        ADOTable1['經辦人']:=Formquhuo.ADOTable1['經辦人'];
       // ADOTable1['入庫時間']:=Formquhuo.ADOTable1['入庫時間'];
        ADOTable1['單價']:=Formquhuo.ADOTable1['單價'];
        ADOTable1['單位']:=Formquhuo.ADOTable1['單位'];


        ADOTable1.Post;
      End;
    End;
  finally
    Formquhuo.Free;
  end;
end;

procedure TFormchuku.FormCreate(Sender: TObject);
begin
  adotable1.Open;
end;

procedure TFormchuku.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFormchuku.FormDestroy(Sender: TObject);
begin
  adotable1.Close;
  formreport2.Free;
end;

procedure TFormchuku.Button2Click(Sender: TObject);
begin
  if application.MessageBox('確定要出庫?','出庫',MB_OKCANCEL)=ID_OK then
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('delete from product_list where product_list.條碼=''出庫單.條碼''');
  adoquery1.ExecSQL;
end;


procedure DBGridtoTxtFile(dbgrid: TDBGrid; TxtFileName: string); //輸出 Txt文件
var
 iFor: integer;
 TempStr: string;
 TempList: TStrings;
begin
 TempStr := '';  //初始化臨時變量
 TempList := TStringList.Create;  //創建TStringList對象
dbgrid.DataSource.DataSet.First;  //轉到第一行數據
 while not DBGrid.DataSource.DataSet.Eof do
 begin
   TempStr := '';
  // for iFor := 0 to dbgrid.Columns.Count - 1 do  //一列一列輸出值
   begin
     if DBGrid.Columns.Items[0].Visible then  //如果該列隱藏,則不輸入Txt Files
       TempStr := TempStr+dbgrid.DataSource.DataSet.FieldByName(dbgrid.Columns.Items[0].FieldName).AsString;
//字段值間以空格隔開,可以自己設置分隔符
   end;
   TempList.Add(TempStr);  {輸出一條記錄至TempList}
   DBGrid.DataSource.DataSet.Next //記錄指針下移
 end;
 TempList.SaveToFile(TxtFileName); //用Tstrings/TstringList的SaveToFile方法保存文件
 FreeAndNil(TempList);  //釋放TempList;
 MessageBox(0, '數據成功導出至d:\DT900采集信息\chuku.txt', '出庫', mb_ok + mb_iconinformation);
end;


procedure TFormchuku.Button3Click(Sender: TObject);
begin
  DBGridtoTxtFile(dbgrid1,'d:\DT900采集信息\chuku.txt');
end;

procedure TFormchuku.Button4Click(Sender: TObject);
begin
  datasource1.DataSet.Prior;  
end;

procedure TFormchuku.Button5Click(Sender: TObject);
begin
  datasource1.DataSet.Next
end;

procedure TFormchuku.Button6Click(Sender: TObject);
begin
  datasource1.DataSet.Insert;
end;

procedure TFormchuku.Button7Click(Sender: TObject);
begin
  datasource1.DataSet.Delete;
end;

procedure TFormchuku.Button8Click(Sender: TObject);
begin
  datasource1.DataSet.Refresh;
end;

procedure TFormchuku.Panel1Click(Sender: TObject);
begin
  dbedit7.Text:=datetostr(datetimepicker1.Date);
end;

procedure TFormchuku.Button9Click(Sender: TObject);
begin

  formreport2:=Tformreport2.Create(Self);
  formreport2.QuickRep1.Preview;
end;

end.