khzl_unit.pas

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

  if key = vk_return then
    edit10.SetFocus;

end;

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

end;

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

end;

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

end;

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

end;

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

end;

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

procedure Tkhzl_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 Tkhzl_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;

procedure Tkhzl_form.SpeedButton17Click(Sender: TObject);
var
  SearchCode:String;
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
       SearchCode:=lv.Selected.Caption;

       if FrmMain.ExecSQL('delete from khzl where 客户编码='''+searchcode+'''') then
       else
          begin
             ShowMessage('删除记录时操作失误,记录未删除,请检查');
            exit;
         end;
     end;
  LV.Selected.Delete;
end;

procedure Tkhzl_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 khzl order by 客户编码');
    adoq1.Active := true;
    FrmMain.AddData(LV, AdoQ1);
    statusbar1.Panels[1].Text := inttostr(adoq1.Recordset.RecordCount);
  end;
end;

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

  VarCode := lv.Selected.Caption;
  speedbutton15.Enabled := false;
  speedbutton17.Enabled := false;
  with database do
  begin
    adoq1.Connection := adoc;
    adoq1.SQL.Clear;
    adoq1.SQL.Add('select * from khzl where 客户编码=''' + VarCode + '''');
    adoq1.Active := true;
    if adoq1.Recordset.RecordCount > 0 then
    begin
      edit1.Text := adoq1.Fields.Fields[0].AsString;
      edit2.Text := adoq1.Fields.Fields[1].AsString;
      edit3.Text := adoq1.Fields.Fields[2].AsString;
      edit4.Text := adoq1.Fields.Fields[3].AsString;
      edit5.Text := adoq1.Fields.Fields[4].AsString;
      edit6.Text := adoq1.Fields.Fields[5].AsString;
      edit7.Text := adoq1.Fields.Fields[6].AsString;
      edit8.Text := adoq1.Fields.Fields[7].AsString;
      edit9.Text := adoq1.Fields.Fields[8].AsString;
      edit10.Text := adoq1.Fields.Fields[9].AsString;
      edit11.Text := adoq1.Fields.Fields[10].AsString;
      edit12.Text := adoq1.Fields.Fields[11].AsString;
      edit14.Text := adoq1.Fields.Fields[12].AsVariant;
      edit15.Text := adoq1.Fields.Fields[13].AsVariant;
      edit13.Text := adoq1.Fields.Fields[14].AsString;
      edit1.ReadOnly := true;
      edit2.SetFocus;
    end
    else
      showmessage('请刷新选择记录!');

  end;
end;

procedure Tkhzl_form.R1Click(Sender: TObject);
begin
  khzl_form.SpeedButton4Click(nil);
end;

procedure Tkhzl_form.N2Click(Sender: TObject);
begin
  khzl_form.SpeedButton17Click(nil);
end;

procedure Tkhzl_form.N1Click(Sender: TObject);
begin
  khzl_form.SpeedButton15Click(nil);
end;

procedure Tkhzl_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, 'khzl');
      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;

    edit1.SetFocus;
    edit1.ReadOnly := false;
    speedbutton15.Enabled := true;
    speedbutton17.Enabled := true;
end;

procedure Tkhzl_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 Tkhzl_form.U1Click(Sender: TObject);
begin
  khzl_form.SpeedButton16Click(nil);
end;

procedure Tkhzl_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.Text;
  edit13.Clear;
  edit14.Text := '0';
  edit15.Text := '0';
  edit1.SetFocus;
  speedbutton15.Enabled := true;
  speedbutton17.Enabled := true;
  edit1.ReadOnly := false;
  edit1.SetFocus;
  khzl_find_form := Tkhzl_find_form.create(application);
  khzl_find_form.show;
end;

procedure Tkhzl_form.F1Click(Sender: TObject);
begin
  speedbutton3click(nil);
end;

end.