usprkxx.~pas

一个比较实用的仓库管理系统,Delphi+SQL开发

  ActionCD:='';
  Close; 
end;

procedure TSPRKXX.ComboBox1DropDown(Sender: TObject);
var
 i:integer;
begin
  ComboBox1.Clear;
  with DM.QSPXX do
  begin
    SQL.clear;
    SQl.Text := 'select DISTINCT 供应商编号 from 商品基本信息';
    Close;
    Active := False;
    prepared := False;
    prepared := True;
    Active := True;
    if (recordcount > 0) then
      first;
    for i := 0 to recordcount - 1 do
    begin
      combobox1.Items.add(FieldByName('供应商编号').asstring);
      next;
    end;
    Edit3.Clear;
    Edit4.Clear;
    Edit5.Clear;
    Edit6.Clear;
    ComboBox2.Clear;
  end;
end;

procedure TSPRKXX.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in[#13,#46]) then
    key:=#0;
  if key=#13 then
    Edit1.SetFocus;
end;

procedure TSPRKXX.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Date:=date();
  with DM.QSPRKXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 商品入库信息');
    Open;
  end;
  DM.DSOSPRKXX.Open;
end;

procedure TSPRKXX.FormShow(Sender: TObject);
begin
  GroupBox1.Enabled:=False;
  GroupBox2.Enabled:=False;
  if ActionCD = 'M' then
    GetAll
  else if ActionCD = 'N' then
  begin
    GroupBox1.Enabled:=False;
    GroupBox2.Enabled:=False;
  end;
end;

procedure TSPRKXX.SpeedButton1Click(Sender: TObject);
begin
  GroupBox1.Enabled:=True;
  GroupBox2.Enabled:=True;

  SpeedButton3.Enabled:=True;
  SpeedButton4.Enabled:=True;
  ComboBox1.Clear;
  Edit1.Clear;
  Edit2.Clear;
  ComboBox2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Memo1.Clear;
  ActionCD:= 'N';
  bh;
  ComboBox1.SetFocus;
  SpeedButton1.Enabled:=False;
end;

procedure TSPRKXX.SpeedButton3Click(Sender: TObject);
begin
  if (cansave) then
  begin
    Posting; //  提交存盘
    GroupBox1.Enabled:=False;
    GroupBox2.Enabled:=False;
    DM.DSOSPRKXX.Close;
    DM.DSOSPRKXX.Open;
    with DM.QSPRKXX do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * from 商品入库信息');
      Open;
    end;
    Application.MessageBox('保存成功!','提示!',64);
    actioncd:='';
    SPRKXX.Close;
  end;
end;

procedure TSPRKXX.SpeedButton4Click(Sender: TObject);
begin
  SpeedButton1.Enabled:=True;

  SpeedButton3.Enabled:=False;
  SpeedButton4.Enabled:=False;
  GroupBox1.Enabled:=False;
  GroupBox2.Enabled:=False;
  ActionCD:='';
  GetAll;
end;

procedure TSPRKXX.ComboBox1Change(Sender: TObject);
begin
  Edit1.Clear;
  with DM.QSPXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select DISTINCT 供应商名称 from 商品基本信息 where 供应商编号='+''''+ComboBox1.Text+'''');
    Open;
  end;
  DM.DSOSPXX.Open;
  Edit1.Text:=DM.QSPXX.FieldByName('供应商名称').Value;
  Edit1.SetFocus;
end;

procedure TSPRKXX.ComboBox2Change(Sender: TObject);
begin
{  Edit1.Clear;
  with DM.QSPXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('');
    Open;
  end;
  Edit1.Text:=DM.DSOSPXX.FieldByName('供应商名称').Value; }
  Edit3.Clear;
  with DM.QSPXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select 规格 from 商品基本信息 where 商品名称='+''''+ComboBox2.Text+'''');
    Open;
  end;
  Edit3.Text:=DM.QSPXX.FieldByName('规格').Value;
  Edit4.Clear;
  with DM.QSPXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select 单位 from 商品基本信息 where 商品名称='+''''+ComboBox2.Text+'''');
    Open;
  end;
  Edit4.Text:=DM.QSPXX.FieldByName('单位').Value;
  Edit5.Clear;
  with DM.QSPXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select 商品单价 from 商品基本信息 where 商品名称='+''''+ComboBox2.Text+'''');
    Open;
  end;
  Edit5.Text:=DM.QSPXX.FieldByName('商品单价').Value;
  Edit6.SetFocus;
end;

procedure TSPRKXX.ComboBox2DropDown(Sender: TObject);
var
 i:integer;
begin
  ComboBox2.Clear;
  with DM.QSPXX do
  begin
    SQL.clear;
    SQl.Text := 'select 商品名称 from 商品基本信息 where 供应商名称='+''''+Edit1.Text+'''';
    Close;
    Active := False;
    prepared := False;
    prepared := True;
    Active := True;
    ComboBox2.Clear;
    if (recordcount > 0) then
      first;
    for i := 0 to recordcount - 1 do
    begin
      combobox2.Items.add(FieldByName('商品名称').asstring);
      next;
    end;
  end;
end;

procedure TSPRKXX.Edit1KeyPress(Sender: TObject; var Key: Char);
VAR
  i:integer;
begin
  if key=#13 then
  begin
    ComboBox2.SetFocus;
    ComboBox2.Clear;
    with DM.QSPXX do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select 商品名称 from 商品基本信息 where 供应商名称='+''''+Edit1.Text+'''');
      Open;
      if (DM.QSPXX.RecordCount > 0) then
        first;
      for i := 0 to recordcount - 1 do
      begin
        combobox2.Items.add(FieldByName('商品名称').asstring);
        next;
      end;
    end;
    ComboBox2.Clear;
  end
  else
  key:=#0;
end;

procedure TSPRKXX.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in[#13]) then
    key:=#0;
end;

procedure TSPRKXX.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#13,#8]) then
    key:=#0;
  if key=#13 then
    DateTimePicker1.SetFocus;
end;

procedure TSPRKXX.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Edit7.SetFocus;
end;

procedure TSPRKXX.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Memo1.SetFocus;
end;

procedure TSPRKXX.Edit1Exit(Sender: TObject);
var
i:integer;
begin
    ComboBox2.SetFocus;
    ComboBox2.Clear;
    with DM.QSPXX do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select 商品名称 from 商品基本信息 where 供应商名称='+''''+Edit1.Text+'''');
      Open;
      if (DM.QSPXX.RecordCount > 0) then
        first;
      for i := 0 to recordcount - 1 do
      begin
        combobox2.Items.add(FieldByName('商品名称').asstring);
        next;
      end;
    end;
    ComboBox2.Clear;
end;

procedure TSPRKXX.Edit7Change(Sender: TObject);
begin
  Edit7.Text:=Trim(Edit7.Text);
end;

end.