gyshzl_unit.pas

这是我照着书做的一个销售管理系统,内容不难,很简单,但是对于我这个菜鸟来说已经很不错了

end;

procedure Tgyshzl_form.Edit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit10.SetFocus;

end;

procedure Tgyshzl_form.Edit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit11.SetFocus;

end;

procedure Tgyshzl_form.Edit11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit12.SetFocus;

end;

procedure Tgyshzl_form.Edit12KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit13.SetFocus;

end;

procedure Tgyshzl_form.Edit13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit14.SetFocus;

end;

procedure Tgyshzl_form.Edit14KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit15.SetFocus;

end;

procedure Tgyshzl_form.Edit15KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    speedbutton15click(nil);
end;

procedure Tgyshzl_form.SpeedButton16Click(Sender: TObject);
begin
  if lv.SelCount = 0 then
  begin
    ShowMessage('请选中一条记录进行编辑');
    exit;
  end;

  QryTemp.Close;
  QryTemp.SQL.Text := 'select * from khzl where 供货商编码=''' +
    lv.Selected.Caption + '''';
  QryTemp.Open;

  if QryTemp.Recordset.RecordCount < 0 then
    exit;
  edit1.Text := QryTemp.Fields.Fields[0].AsString;
  edit2.Text := QryTemp.Fields.Fields[1].AsString;
  edit3.Text := QryTemp.Fields.Fields[2].AsString;
  edit4.Text := QryTemp.Fields.Fields[3].AsString;
  edit5.Text := QryTemp.Fields.Fields[4].AsString;
  edit6.Text := QryTemp.Fields.Fields[5].AsString;
  edit7.Text := QryTemp.Fields.Fields[6].AsString;
  edit8.Text := QryTemp.Fields.Fields[7].AsString;
  edit9.Text := QryTemp.Fields.Fields[8].AsString;
  edit10.Text := QryTemp.Fields.Fields[9].AsString;
  edit11.Text := QryTemp.Fields.Fields[10].AsString;
  edit12.Text := QryTemp.Fields.Fields[11].AsString;
  edit14.Text := QryTemp.Fields.Fields[12].AsVariant;
  edit15.Text := QryTemp.Fields.Fields[13].AsVariant;
  edit13.Text := QryTemp.Fields.Fields[14].AsString;

  edit1.ReadOnly := true;
  edit2.SetFocus;

end;

procedure Tgyshzl_form.SpeedButton17Click(Sender: TObject);
begin
  if lv.Items.Count = 0 then
  begin
    ShowMessage('记录集为空,不能够删除');
    exit;
  end;

  if LV.SelCount = 0 then
  begin
    ShowMessage('请选中一条要删除的记录');
    exit;
  end;

  if MessageDlg('是否删除所选中的记录,请确定', mtConfirmation, [mbYes, mbNo], 0)
    = mrYes then
  begin

    if FrmMain.ExecSQL('delete from ghszl where 供货商编码=''' +
      lv.Selected.Caption + '''') then
    else
    begin
      ShowMessage('删除记录时操作失误,记录未删除,请检查');
      exit;
    end;
  end;
  LV.Selected.Delete;

end;

procedure Tgyshzl_form.SpeedButton1Click(Sender: TObject);
var
  SqlStr: string;
  ValueArray: array of string;
  ArrayCount: Integer;
begin
  try
    if trim(Edit2.Text) = '' then
    begin
      showmessage('供货商名称为空，请填写');
      Edit2.SetFocus;
      Exit;
    end;

    SqlStr := '';

    FrmMain.UpStr(sqlstr, ' ghszl');
    FrmMain.UpStr(sqlstr, '供货商名称', edit2.text, ',');
    FrmMain.UpStr(sqlstr, '拼音简码', edit3.Text, ',');
    FrmMain.UpStr(sqlstr, '联系人', edit4.text, ',');
    FrmMain.UpStr(sqlstr, '电话', edit5.text, ',');
    FrmMain.UpStr(sqlstr, '邮编', edit6.text, ',');
    FrmMain.UpStr(sqlstr, '地址', edit7.text, ',');
    FrmMain.UpStr(sqlstr, '银行帐号', edit8.text, ',');
    FrmMain.UpStr(sqlstr, '开户银行', edit9.text, ',');
    FrmMain.UpStr(sqlstr, '信誉度', edit10.text, ',');
    FrmMain.UpStr(sqlstr, '电子邮件', edit11.text, ',');
    FrmMain.UpStr(sqlstr, '传真', edit12.text, ',');
    FrmMain.UpStr(sqlstr, '期初应收', edit14.text, ',');
    FrmMain.UpStr(sqlstr, '期初应付', edit15.text, ',');
    FrmMain.UpStr(sqlstr, '备注', edit13.text, ',');
    FrmMain.UpStr(sqlstr, '供货商编码', lv.Selected.Caption, '');

    if FrmMain.execsql(sqlstr) then
    else
    begin
      ShowMessage('操作失误,请检查');
      exit;
    end;
    SetLength(ValueArray,12);
    ValueArray[0] := edit1.text;
    ValueArray[1] := edit2.text;
    ValueArray[2] := edit3.text;
    ValueArray[3] := edit4.text;
    ValueArray[4] := edit5.text;
    ValueArray[5] := edit6.text;
    ValueArray[6] := edit7.text;
    ValueArray[7] := edit8.text;
    ValueArray[8] := edit9.text;
    ValueArray[9] := edit10.text;
    ValueArray[10] := edit11.text;
    ValueArray[11] := edit12.text;
    ArrayCount := 11;
    FrmMain.RefeshOne(ValueArray, ArrayCount, lv);
  except
    showmessage('修改信息操作失误，请检查！');
    Exit;
  end;

end;

procedure Tgyshzl_form.SpeedButton2Click(Sender: TObject);
begin
  speedbutton15.Enabled := true;
  speedbutton17.Enabled := true;
  edit1.ReadOnly := false;
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.clear;
  edit5.Clear;
  edit6.clear;
  edit7.Clear;
  edit8.Clear;
  edit9.Clear;
  edit10.clear;
  edit11.Clear;
  edit12.clear;
  edit13.Clear;
  edit14.Text := '0';
  edit15.Text := '0';
  edit1.SetFocus;

end;

procedure Tgyshzl_form.SpeedButton4Click(Sender: TObject);
begin
  speedbutton15.Enabled := true;
  speedbutton17.Enabled := true;
  edit1.ReadOnly := false;
  edit1.SetFocus;
  with database do
  begin
    adoq1.Connection := adoc;
    adoq1.SQL.Clear;
    adoq1.SQL.Add('select 供货商编码,供货商名称,拼音简码,联系人,电话,邮编,地址,银行帐号,开户银行,信誉度,电子邮件,传真 from ghszl order by 供货商编码');
    adoq1.Active := true;
    FrmMain.AddData(Lv,AdoQ1);
    statusbar1.Panels[1].Text := inttostr(adoq1.Recordset.RecordCount);
  end;

end;

procedure Tgyshzl_form.SpeedButton3Click(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.clear;
  edit5.Clear;
  edit6.clear;
  edit7.Clear;
  edit8.Clear;
  edit9.Clear;
  edit10.clear;
  edit11.Clear;
  edit12.clear;
  edit13.Clear;
  edit14.Text := '0';
  edit15.Text := '0';
  edit1.SetFocus;
  speedbutton15.Enabled := true;
  speedbutton17.Enabled := true;
  edit1.ReadOnly := false;
  edit1.SetFocus;
  ghszl_find_form := Tghszl_find_form.create(application);
  ghszl_find_form.show;

end;

procedure Tgyshzl_form.N1Click(Sender: TObject);
begin
  speedbutton15click(nil);
end;

procedure Tgyshzl_form.U1Click(Sender: TObject);
begin
  speedbutton16click(nil);
end;

procedure Tgyshzl_form.D1Click(Sender: TObject);
begin
  speedbutton17click(nil);
end;

procedure Tgyshzl_form.N2Click(Sender: TObject);
begin
  speedbutton3click(nil);
end;

procedure Tgyshzl_form.R1Click(Sender: TObject);
begin
  speedbutton4click(nil);
end;

procedure Tgyshzl_form.Edit14KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', '.', #8, #13]) then
  begin
    showmessage('请正确输入数值');
    key := #0;
    edit14.SetFocus;
  end;

end;

procedure Tgyshzl_form.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', '.', #8, #13]) then
  begin
    showmessage('请正确输入数值');
    key := #0;
    edit15.SetFocus;
  end;

end;

end.