wl61_p.pas

delphi+SQLSERVER做的ERP适合初学者模仿之作简单的添加删除链接数据可以用BDE技术链接数据库

unit wl61_p;

interface

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

type
  Twl61 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    SpeedButton2: TSpeedButton;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    ComboBox2: TComboBox;
    Query2: TQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  wl61: Twl61;

implementation

{$R *.dfm}

// 按入库编号查询
procedure Twl61.SpeedButton1Click(Sender: TObject);
begin
  with query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from wl_ylrk where rkbh = :cs0');
    params[0].asstring := Edit1.text;
    open;
  end;
end;


procedure Twl61.BitBtn2Click(Sender: TObject);
begin
   close;
end;

// 按日期查询
procedure Twl61.SpeedButton2Click(Sender: TObject);
begin
  with query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from wl_ylrk where rkrq >= :cs0 and rkrq <= :cs1');
    params[0].asDateTime := DateTimePicker1.date;
    params[1].asDateTime := DateTimePicker2.date;
    open;
  end;
end;


//// 进入本模块
procedure Twl61.FormActivate(Sender: TObject);
begin
// 入库日期终点初始化
  DateTimePicker2.date := date;
end;


//// 选择原料种类后，装入原料名称
procedure Twl61.ComboBox1Change(Sender: TObject);
begin
// 按原料种类查询
  with query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from wl_ylrk where ylzl = :cs0');
    params[0].asstring := ComboBox1.Text;
    open;
  end;

// 重新初始化原料名称
  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select distinct yl_mc from wl_yl where yl_zl = :cs0');
    params[0].asstring := ComboBox1.text;
    open;
    ComboBox2.Items.Clear;
    First;
    while not EOF do
    begin
      ComboBox2.Items.Add(fields[0].asString);
      next;
    end;
  end;  
end;

procedure Twl61.ComboBox2Change(Sender: TObject);
begin
// 按原料种类+名称查询
  with query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from wl_ylrk where ylzl = :cs0 and ylmc = :cs1');
    params[0].asstring := ComboBox1.Text;
    params[1].asstring := ComboBox2.Text;
    open;
  end;

end;

end.