?? ruku.~pas

?? 一個初級的條碼應用管理系統,應用于DT9
?? ~PAS
字號:
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.
?? 文件大小 1667 K
?? 上傳用戶 xhaibo
?? 所屬分類百貨/超市行業
??? 相關標簽

#DT9 #條碼 #應用管理系統 #應用于
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? ruku.~pas

?? 快捷鍵說明
