chuku.pas

一个初级的条码应用管理系统,应用于DT9

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 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
  dbedit8.Text:=datetostr(datetimepicker1.Date);
  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.Button9Click(Sender: TObject);
begin

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

end.