📄 mrywwl.pas

📁 Delphi数据库开发系统例子
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
    showmessage('产品销售编号、销售产品名称、产品单价、'+#13+'客户名称不能为空。');
  end
  else
  begin
    if tb = 1 then
      database.ADO_YWWL.Append;
    if tb = 2 then
      database.ADO_YWWL.Edit;
    database.ADO_YWWL.fieldbyname('cpxs_id').AsString := edit1.Text;
    database.ADO_YWWL.fieldbyname('cpxs_mc').AsString := edit2.Text;
    database.ADO_YWWL.fieldbyname('cpxs_cpdj').AsString := edit3.Text;
    database.ADO_YWWL.fieldbyname('cpxs_xssl').AsString := edit4.Text;
    database.ADO_YWWL.fieldbyname('cpxs_ywl').AsString := edit5.Text;
    database.ADO_YWWL.fieldbyname('cpxs_khmc').AsString := combobox1.Text;
    database.ADO_YWWL.fieldbyname('cpxs_bz').AsString := memo1.Text;
    database.ADO_YWWL.fieldbyname('cpxs_xsrq').AsDateTime := DateTimePicker1.Date;

    database.ADO_YWWL.Post;
    with database.ADO_YWWL do
    begin
      close;
      sql.Clear;
      sql.Add('SELECT * FROM tb_Client_cpxs');
      open;
    end;
  end;
  database.ADO_LXRXX.First;
  edit1.Text := database.ADO_YWWL.fieldbyname('cpxs_id').AsString;
  edit2.Text := database.ADO_YWWL.fieldbyname('cpxs_mc').AsString;
  edit3.Text := database.ADO_YWWL.fieldbyname('cpxs_cpdj').AsString;
  edit4.Text := database.ADO_YWWL.fieldbyname('cpxs_xssl').AsString;
  edit5.Text := database.ADO_YWWL.fieldbyname('cpxs_ywl').AsString;
  combobox1.Text := database.ADO_YWWL.fieldbyname('cpxs_khmc').AsString;
  memo1.Text := database.ADO_YWWL.fieldbyname('cpxs_bz').AsString;
  DateTimePicker1.Date := database.ADO_YWWL.fieldbyname('cpxs_xsrq').AsDateTime;
  ToolButton1.Enabled := true;
  ToolButton2.Enabled := true;
  ToolButton4.Enabled := false;
  ToolButton5.Enabled := false;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;

  tb := 0;
end;

procedure TFRM_YWWL.ToolButton5Click(Sender: TObject);
begin
  ToolButton4.Enabled := false;
  ToolButton5.Enabled := false;
  ToolButton1.Enabled := true;
  ToolButton2.Enabled := true;
  TabSheet1.Enabled := false;
  database.ADO_YWWL.Cancel;
  with database.ADO_YWWL do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_Client_cpxs');
    open;
  end;
  edit1.Text := database.ADO_YWWL.fieldbyname('cpxs_id').AsString;
  edit2.Text := database.ADO_YWWL.fieldbyname('cpxs_mc').AsString;
  edit3.Text := database.ADO_YWWL.fieldbyname('cpxs_cpdj').AsString;
  edit4.Text := database.ADO_YWWL.fieldbyname('cpxs_xssl').AsString;
  edit5.Text := database.ADO_YWWL.fieldbyname('cpxs_ywl').AsString;
  combobox1.Text := database.ADO_YWWL.fieldbyname('cpxs_khmc').AsString;
  memo1.Text := database.ADO_YWWL.fieldbyname('cpxs_bz').AsString;
  if database.ADO_YWWL.RecordCount<1 then
  begin
    DateTimePicker1.Date := now();
  end
  else
  begin
    DateTimePicker1.Date := database.ADO_YWWL.fieldbyname('cpxs_xsrq').AsDateTime;
  end;
  tb := 0;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;

end;

procedure TFRM_YWWL.ToolButton8Click(Sender: TObject);
begin
  database.ADO_YWWL.First;
  ToolButton8.Enabled := false;
  ToolButton9.Enabled := false;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;
  edit1.Text := database.ADO_YWWL.fieldbyname('cpxs_id').AsString;
  edit2.Text := database.ADO_YWWL.fieldbyname('cpxs_mc').AsString;
  edit3.Text := database.ADO_YWWL.fieldbyname('cpxs_cpdj').AsString;
  edit4.Text := database.ADO_YWWL.fieldbyname('cpxs_xssl').AsString;
  edit5.Text := database.ADO_YWWL.fieldbyname('cpxs_ywl').AsString;
  combobox1.Text := database.ADO_YWWL.fieldbyname('cpxs_khmc').AsString;
  memo1.Text := database.ADO_YWWL.fieldbyname('cpxs_bz').AsString;
  DateTimePicker1.Date := database.ADO_YWWL.fieldbyname('cpxs_xsrq').AsDateTime;

end;

procedure TFRM_YWWL.ToolButton9Click(Sender: TObject);
begin
  database.ADO_YWWL.Prior;
  if not database.ADO_YWWL.Bof then
  begin
    ToolButton8.Enabled := true;
    ToolButton9.Enabled := true;
    ToolButton10.Enabled := true;
    ToolButton11.Enabled := true;
  end
  else
  begin
    ToolButton8.Enabled := false;
    ToolButton9.Enabled := false;
    ToolButton10.Enabled := true;
    ToolButton11.Enabled := true;
  end;
  edit1.Text := database.ADO_YWWL.fieldbyname('cpxs_id').AsString;
  edit2.Text := database.ADO_YWWL.fieldbyname('cpxs_mc').AsString;
  edit3.Text := database.ADO_YWWL.fieldbyname('cpxs_cpdj').AsString;
  edit4.Text := database.ADO_YWWL.fieldbyname('cpxs_xssl').AsString;
  edit5.Text := database.ADO_YWWL.fieldbyname('cpxs_ywl').AsString;
  combobox1.Text := database.ADO_YWWL.fieldbyname('cpxs_khmc').AsString;
  memo1.Text := database.ADO_YWWL.fieldbyname('cpxs_bz').AsString;
  DateTimePicker1.Date := database.ADO_YWWL.fieldbyname('cpxs_xsrq').AsDateTime;

end;

procedure TFRM_YWWL.ToolButton10Click(Sender: TObject);
begin
  database.ADO_YWWL.Next;
  if not database.ADO_YWWL.Eof then
  begin
    ToolButton8.Enabled := true;
    ToolButton9.Enabled := true;
    ToolButton10.Enabled := true;
    ToolButton11.Enabled := true;
  end
  else
  begin
    ToolButton8.Enabled := true;
    ToolButton9.Enabled := true;
    ToolButton10.Enabled := false;
    ToolButton11.Enabled := false;
  end;
  edit1.Text := database.ADO_YWWL.fieldbyname('cpxs_id').AsString;
  edit2.Text := database.ADO_YWWL.fieldbyname('cpxs_mc').AsString;
  edit3.Text := database.ADO_YWWL.fieldbyname('cpxs_cpdj').AsString;
  edit4.Text := database.ADO_YWWL.fieldbyname('cpxs_xssl').AsString;
  edit5.Text := database.ADO_YWWL.fieldbyname('cpxs_ywl').AsString;
  combobox1.Text := database.ADO_YWWL.fieldbyname('cpxs_khmc').AsString;
  memo1.Text := database.ADO_YWWL.fieldbyname('cpxs_bz').AsString;
  DateTimePicker1.Date := database.ADO_YWWL.fieldbyname('cpxs_xsrq').AsDateTime;

end;

procedure TFRM_YWWL.ToolButton11Click(Sender: TObject);
begin
  database.ADO_YWWL.Last;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := false;
  ToolButton11.Enabled := false;
  edit1.Text := database.ADO_YWWL.fieldbyname('cpxs_id').AsString;
  edit2.Text := database.ADO_YWWL.fieldbyname('cpxs_mc').AsString;
  edit3.Text := database.ADO_YWWL.fieldbyname('cpxs_cpdj').AsString;
  edit4.Text := database.ADO_YWWL.fieldbyname('cpxs_xssl').AsString;
  edit5.Text := database.ADO_YWWL.fieldbyname('cpxs_ywl').AsString;
  combobox1.Text := database.ADO_YWWL.fieldbyname('cpxs_khmc').AsString;
  memo1.Text := database.ADO_YWWL.fieldbyname('cpxs_bz').AsString;
  DateTimePicker1.Date := database.ADO_YWWL.fieldbyname('cpxs_xsrq').AsDateTime;

end;

procedure TFRM_YWWL.ToolButton13Click(Sender: TObject);
begin
  close;
end;

procedure TFRM_YWWL.DBGrid1CellClick(Column: TColumn);
begin
  edit1.Text := database.ADO_YWWL.fieldbyname('cpxs_id').AsString;
  edit2.Text := database.ADO_YWWL.fieldbyname('cpxs_mc').AsString;
  edit3.Text := database.ADO_YWWL.fieldbyname('cpxs_cpdj').AsString;
  edit4.Text := database.ADO_YWWL.fieldbyname('cpxs_xssl').AsString;
  edit5.Text := database.ADO_YWWL.fieldbyname('cpxs_ywl').AsString;
  combobox1.Text := database.ADO_YWWL.fieldbyname('cpxs_khmc').AsString;
  memo1.Text := database.ADO_YWWL.fieldbyname('cpxs_bz').AsString;
  DateTimePicker1.Date := database.ADO_YWWL.fieldbyname('cpxs_xsrq').AsDateTime;

end;

procedure TFRM_YWWL.ToolButton6Click(Sender: TObject);
begin
  ToolButton5.Enabled := TRUE;
  application.CreateForm(TFRM_YWWL_CX, FRM_YWWL_CX);
  FRM_YWWL_CX.ShowModal;
  FRM_YWWL_CX.Free;
end;

procedure TFRM_YWWL.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit3.SetFocus;
end;

procedure TFRM_YWWL.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit4.SetFocus;
end;

procedure TFRM_YWWL.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return)and(edit4.Text <> '')and(edit3.Text <> '') then
  begin
    edit5.Text := floattostr(strtofloat(edit3.Text)*strtofloat(edit4.Text));
    combobox1.SetFocus;
  end;
end;

procedure TFRM_YWWL.DateTimePicker1Change(Sender: TObject);
begin
  memo1.SetFocus;
end;

procedure TFRM_YWWL.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8]) then
     key := #0;
end;

procedure TFRM_YWWL.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8]) then
     key := #0;
end;

procedure TFRM_YWWL.Edit4Change(Sender: TObject);
begin
  if (Trim(edit3.Text) <> '') and (Trim(edit4.Text) <> '') then
  begin
    if length(edit4.Text)>=1 then
      edit5.Text := floattostr(strtofloat(edit3.Text)*strtofloat(edit4.Text));
  end
  else
    edit5.Clear;
end;

procedure TFRM_YWWL.Edit3Change(Sender: TObject);
begin
//  if (Trim(edit3.Text) <> '') and (Trim(edit4.Text) <> '') then
//  begin
//    if length(edit3.Text)>=1 then
//      edit5.Text := floattostr(strtofloat(edit3.Text)*strtofloat(edit4.Text));
//  end
//  else
//    edit5.Clear;
end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -