pandian.pas

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

unit pandian;

interface

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

type
  TFormpandian = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    TabSheet2: TTabSheet;
    DBGrid2: TDBGrid;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    Edit3: TEdit;
    Button3: TButton;
    Button4: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Memo1: TMemo;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    N2: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formpandian: TFormpandian;

implementation

uses datamodel, report;

{$R *.dfm}

procedure TFormpandian.FormShow(Sender: TObject);
begin
  stringgrid1.Cells[1,0]:='条码';
  stringgrid1.Cells[2,0]:='货物名称';
  stringgrid1.Cells[3,0]:='数量';
  stringgrid1.Cells[4,0]:='仓位';
  stringgrid1.Cells[5,0]:='货位';
end;

procedure TFormpandian.Button1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select 条码,货物名称,数量,仓位,货位 from product_list where 货物名称 like ''%'+edit1.Text+'%''');
  ADOQuery1.Open;
end;

procedure TFormpandian.Button2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select 条码,货物名称,数量,仓位,货位 from product_list where 仓位 like ''%'+edit1.Text+'%''');
  ADOQuery1.Open;
end;

procedure TFormpandian.Button3Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select 条码,货物名称,数量,仓位,货位 from product_list where 货位 like ''%'+edit1.Text+'%''');
  ADOQuery1.Open;
end;

procedure TFormpandian.N1Click(Sender: TObject);
begin
  close;
end;

procedure TFormpandian.Button4Click(Sender: TObject);
 var
  i,j,m,n:integer;

begin
   j:=1;
    memo1.Lines.LoadFromFile('D:/DT900采集信息/pandian.txt');
      for i:=0 to memo1.Lines.Count-1 do
         begin
           stringgrid1.Cells[1,j]:=memo1.Lines[i];
             inc(j);
         end;
     for i:=0 to memo1.Lines.Count-1 do
         begin
           ADOQuery1.Close;
           ADOQuery1.SQL.Clear;
           ADOQuery1.SQL.Add('select * from 编码 where 条码='''+copy(memo1.Lines[i],1,10)+'''');
           ADOQuery1.Open;
            while not ADOQuery1.Eof do
              begin
                 stringgrid1.Cells[2,i]:=ADOQuery1.Fieldbyname('供应商').AsString;
                 stringgrid1.Cells[3,i]:=ADOQuery1.Fieldbyname('品名').AsString;
                 stringgrid1.Cells[4,i]:=ADOQuery1.Fieldbyname('系列').AsString;
                 stringgrid1.Cells[5,i]:=ADOQuery1.Fieldbyname('规格').AsString;


                ADOQuery1.Next;

              end;

         end;

 end;
procedure TFormpandian.N2Click(Sender: TObject);
begin
  formreport:=Tformreport.Create(Self);
  formreport.QuickRep1.Preview;
end;

end.