ruku.pas

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

unit Ruku;

interface

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

type
  TFormRuku = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet4: TTabSheet;
    MainMenu1: TMainMenu;
    Q1: TMenuItem;
    H1: TMenuItem;
    G1: TMenuItem;
    Button1: TButton;
    Edit3: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit6: TEdit;
    Button5: TButton;
    ComboBox1: TComboBox;
    DBGrid2: TDBGrid;
    StringGrid1: TStringGrid;
    Button8: TButton;
    Memo1: TMemo;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DateTimePicker2: TDateTimePicker;
    Panel1: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    ADOQuery3: TADOQuery;
    procedure Q1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormRuku: TFormRuku;
  R:Integer;

implementation
  uses main, datamodel;
{$R *.dfm}

procedure TFormRuku.Q1Click(Sender: TObject);
begin
formmain.Show;
formruku.Close;
end;

procedure TFormRuku.Button2Click(Sender: TObject);
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select 入库类别,条码,货物名称,单位,单价,数量,入库时间,经办人,供应商,仓位,货位,备注 from Product_list where 货物名称 like ''%'+edit3.Text+'%''');
  ADOQuery2.Open;

end;

procedure TFormRuku.Button3Click(Sender: TObject);
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select 入库类别,条码,货物名称,单位,单价,数量,入库时间,经办人,供应商,仓位,货位,备注 from Product_list where 入库时间 like ''%'+ datetostr(DateTimePicker1.Date)+'%''');
  ADOQuery2.Open;

end;

procedure TFormRuku.Button4Click(Sender: TObject);
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select 入库类别,条码,货物名称,单位,单价,数量,入库时间,经办人,供应商,仓位,货位,备注 from Product_list where 经办人 like ''%'+combobox1.Text+'%''');
  ADOQuery2.Open;

end;

procedure TFormRuku.Button5Click(Sender: TObject);
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select 入库类别,条码,货物名称,单位,单价,数量,入库时间,经办人,供应商,仓位,货位,备注 from Product_list where 供应商 like ''%'+edit6.Text+'%''');
  ADOQuery2.Open;

end;

procedure TFormRuku.Button1Click(Sender: TObject);
{var
  row,col:integer;
 // adoquery1:Tadoquery;
  AField:array of string;
  k:integer;
begin
  DataModule1.ADOQuery1.Close;
  DataModule1.ADOQuery1.SQL.Clear;
  DataModule1.ADOQuery1.SQL.Add('select * from 入库单');
  DataModule1.ADOQuery1.open;
  setlength(AField,StringGrid1.ColCount);
  for row:=1 to StringGrid1.RowCount-1 do
  begin
    DataModule1.adoquery1.Append;
     for k:=0 to StringGrid1.ColCount-1 do
     begin
       If DataModule1.adoquery1.Fields[k].fieldName='单价' then
         DataModule1.adoquery1.Fields[k].ASFloat:= strToFloat(AField[k])
       else
          DataModule1.adoquery1.Fields[k].Value:= AField[k];


     end;
    datamodule1.adoquery1.Post;
   end;
   }
begin
  datasource1.dataset.post;
  datasource1.dataset.insert;
end;
procedure TFormRuku.Button6Click(Sender: TObject);
begin
{if application.MessageBox('在货物入库后将入库单清空。是否现在清空入库单？','确定',mb_okcancel)=idok then
    DataModule1.ADOQuery1.Close;
     begin
   DataModule1.ADOQuery1.SQL.Clear;
   DataModule1.ADOQuery1.SQL.Add('delete from 入库单');
   DataModule1.ADOQuery1.ExecSQL;
   DataModule1.ADOQuery3.Delete;
   DataModule1.ADOQuery3.Open;

 end;
 }
 end;

procedure TFormRuku.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    DBedit1.text:=stringgrid1.cells[1,R];
    dbedit2.text:=stringgrid1.cells[2,R];
    dbedit9.text:=stringgrid1.cells[3,R];
end;

procedure TFormRuku.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  R:=ARow;
  //C:=ACol;
//  showmessage(stringgrid1.cells[ARow,ACol]);
end;

procedure TFormRuku.ToolButton5Click(Sender: TObject);
begin
  adoquery2.close;
  adoquery2.sql.clear;
  adoquery2.sql.add('select 入库类别,条码,货物名称,单位,单价,数量,入库时间,经办人,供应商,仓位,货位,备注 from product_list');
  adoquery2.open;
end;

procedure TFormRuku.ToolButton1Click(Sender: TObject);
begin
  datasource2.dataset.first;
end;

procedure TFormRuku.ToolButton2Click(Sender: TObject);
begin
  datasource2.dataset.prior;
end;

procedure TFormRuku.ToolButton3Click(Sender: TObject);
begin
  datasource2.dataset.next;
end;

procedure TFormRuku.ToolButton4Click(Sender: TObject);
begin
  datasource2.dataset.last;
end;

procedure TFormRuku.Button8Click(Sender: TObject);
var
  F: TextFile;
  S: string;
  r,m,j,i:integer;
begin
  m:=1;
  j:=1;
  Memo1.Lines.LoadFromFile('d:/DT900采集信息/ruku.txt');
  for i:=0 to Memo1.Lines.Count-1 Do
  begin
    stringgrid1.Cells[m,j]:=Memo1.Lines[i];
    inc(j);
  End;
  for i:=0 to Memo1.Lines.Count-1 Do
  begin
    ADOQuery3.Close;
    ADOQuery3.SQL.Clear;
    ADOQuery3.SQL.Add('select * from 编码 where 条码='''+copy(memo1.lines[i],1,10)+'''');
    ADOQuery3.Open;
      while not ADOQuery3.Eof do
        begin

           stringgrid1.Cells[1,0]:='条码';
           stringgrid1.Cells[2,0]:='供应商';
           stringgrid1.Cells[3,0]:='产品名称';
           stringgrid1.Cells[4,0]:='系列';
           stringgrid1.Cells[5,0]:='规格';
           stringgrid1.Cells[2,i+1]:=ADOQuery3.Fieldbyname('供应商').AsString;
           stringgrid1.Cells[3,i+1]:=ADOQuery3.Fieldbyname('品名').AsString;
           stringgrid1.Cells[4,i+1]:=ADOQuery3.Fieldbyname('系列').AsString;
           stringgrid1.Cells[5,i+1]:=ADOQuery3.Fieldbyname('规格').AsString;

           ADOQuery3.Next;  //彭延建,张洪辰
          DBComboBox1.text:='';
        end;
  End;
  datasource1.dataset.insert;
  dbedit6.text:=datetostr(DateTimePicker2.Date);

end;

end.