?? mrkhts.pas

?? Delphi數據庫開發系統例子
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
      ToolButton10.Enabled := true;
      ToolButton11.Enabled := true;

    end;
  end;
end;

procedure TFRM_KHTS.ToolButton4Click(Sender: TObject);
begin
  if (edit1.Text = '')or(edit2.Text = '')or(combobox1.Text = '')
     or(edit5.Text = '')or(edit3.Text = '')or(edit4.Text = '') then
  begin
    showmessage('企業名稱、投拆人、投拆主題、'+#13+'投拆內容、投拆受理人不能為空。');
  end
  else
  begin
    if tb = 1 then
      database.ADO_KHTS.Append;
    if tb = 2 then
      database.ADO_KHTS.Edit;
    database.ADO_KHTS.fieldbyname('khts_id').AsString := edit1.Text;
    database.ADO_KHTS.fieldbyname('khts_tsr').AsString := edit2.Text;
    database.ADO_KHTS.fieldbyname('khts_tszt').AsString := edit3.Text;
    database.ADO_KHTS.fieldbyname('khts_tsnr').AsString := edit4.Text;
    database.ADO_KHTS.fieldbyname('khts_tsslr').AsString := edit5.Text;
    database.ADO_KHTS.fieldbyname('khts_qymc').AsString := combobox1.Text;
    database.ADO_KHTS.fieldbyname('khts_khmyd').AsString := combobox2.Text;
    database.ADO_KHTS.fieldbyname('khts_clbf').AsString := memo1.Text;
    database.ADO_KHTS.fieldbyname('khts_bz').AsString := memo2.Text;
    database.ADO_KHTS.fieldbyname('khts_tsrq').AsDateTime := DateTimePicker1.Date;
    database.ADO_KHTS.Post;
    with database.ADO_KHTS do
    begin
      close;
      sql.Clear;
      sql.Add('SELECT * FROM tb_Client_khts');
      open;
    end;
  end;
  database.ADO_KHTS.First;
  edit1.Text := database.ADO_KHTS.fieldbyname('khts_id').AsString;
  edit2.Text := database.ADO_KHTS.fieldbyname('khts_tsr').AsString;
  edit3.Text := database.ADO_KHTS.fieldbyname('khts_tszt').AsString;
  edit4.Text := database.ADO_KHTS.fieldbyname('khts_tsnr').AsString;
  edit5.Text := database.ADO_KHTS.fieldbyname('khts_tsslr').AsString;
  combobox1.Text := database.ADO_KHTS.fieldbyname('khts_qymc').AsString;
  combobox2.Text := database.ADO_KHTS.fieldbyname('khts_khmyd').AsString;
  memo1.Text := database.ADO_KHTS.fieldbyname('khts_clbf').AsString;
  memo2.Text := database.ADO_KHTS.fieldbyname('khts_bz').AsString;
  DateTimePicker1.Date := database.ADO_KHTS.fieldbyname('khts_tsrq').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_KHTS.ToolButton5Click(Sender: TObject);
begin
  ToolButton4.Enabled := false;
  ToolButton5.Enabled := false;
  ToolButton1.Enabled := true;
  ToolButton2.Enabled := true;
  TabSheet1.Enabled := false;
  database.ADO_KHTS.Cancel;
  with database.ADO_KHTS do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_Client_khts');
    open;
  end;
  edit1.Text := database.ADO_KHTS.fieldbyname('khts_id').AsString;
  edit2.Text := database.ADO_KHTS.fieldbyname('khts_tsr').AsString;
  edit3.Text := database.ADO_KHTS.fieldbyname('khts_tszt').AsString;
  edit4.Text := database.ADO_KHTS.fieldbyname('khts_tsnr').AsString;
  edit5.Text := database.ADO_KHTS.fieldbyname('khts_tsslr').AsString;
  combobox1.Text := database.ADO_KHTS.fieldbyname('khts_qymc').AsString;
  combobox2.Text := database.ADO_KHTS.fieldbyname('khts_khmyd').AsString;
  memo1.Text := database.ADO_KHTS.fieldbyname('khts_clbf').AsString;
  memo2.Text := database.ADO_KHTS.fieldbyname('khts_bz').AsString;

  with database.ADO_KHTS do
  begin
    close;
    sql.Clear;
    sql.Add('SELECT * FROM tb_Client_khts');
    open;
  end;
  if database.ADO_KHTS.RecordCount<1 then
  begin
    DateTimePicker1.Date := now();
  end
  else
  begin
    DateTimePicker1.Date := database.ADO_KHTS.fieldbyname('khts_tsrq').AsDateTime;
  end;

  tb := 0;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;
end;

procedure TFRM_KHTS.ToolButton8Click(Sender: TObject);
begin
  database.ADO_KHTS.First;
  ToolButton8.Enabled := false;
  ToolButton9.Enabled := false;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;
  edit1.Text := database.ADO_KHTS.fieldbyname('khts_id').AsString;
  edit2.Text := database.ADO_KHTS.fieldbyname('khts_tsr').AsString;
  edit3.Text := database.ADO_KHTS.fieldbyname('khts_tszt').AsString;
  edit4.Text := database.ADO_KHTS.fieldbyname('khts_tsnr').AsString;
  edit5.Text := database.ADO_KHTS.fieldbyname('khts_tsslr').AsString;
  combobox1.Text := database.ADO_KHTS.fieldbyname('khts_qymc').AsString;
  combobox2.Text := database.ADO_KHTS.fieldbyname('khts_khmyd').AsString;
  memo1.Text := database.ADO_KHTS.fieldbyname('khts_clbf').AsString;
  memo2.Text := database.ADO_KHTS.fieldbyname('khts_bz').AsString;
  DateTimePicker1.Date := database.ADO_KHTS.fieldbyname('khts_tsrq').AsDateTime;
end;

procedure TFRM_KHTS.ToolButton9Click(Sender: TObject);
begin
  database.ADO_KHTS.Prior;
  if not database.ADO_KHTS.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_KHTS.fieldbyname('khts_id').AsString;
  edit2.Text := database.ADO_KHTS.fieldbyname('khts_tsr').AsString;
  edit3.Text := database.ADO_KHTS.fieldbyname('khts_tszt').AsString;
  edit4.Text := database.ADO_KHTS.fieldbyname('khts_tsnr').AsString;
  edit5.Text := database.ADO_KHTS.fieldbyname('khts_tsslr').AsString;
  combobox1.Text := database.ADO_KHTS.fieldbyname('khts_qymc').AsString;
  combobox2.Text := database.ADO_KHTS.fieldbyname('khts_khmyd').AsString;
  memo1.Text := database.ADO_KHTS.fieldbyname('khts_clbf').AsString;
  memo2.Text := database.ADO_KHTS.fieldbyname('khts_bz').AsString;
  DateTimePicker1.Date := database.ADO_KHTS.fieldbyname('khts_tsrq').AsDateTime;

end;

procedure TFRM_KHTS.ToolButton10Click(Sender: TObject);
begin
  database.ADO_KHTS.Next;
  if not database.ADO_KHTS.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_KHTS.fieldbyname('khts_id').AsString;
  edit2.Text := database.ADO_KHTS.fieldbyname('khts_tsr').AsString;
  edit3.Text := database.ADO_KHTS.fieldbyname('khts_tszt').AsString;
  edit4.Text := database.ADO_KHTS.fieldbyname('khts_tsnr').AsString;
  edit5.Text := database.ADO_KHTS.fieldbyname('khts_tsslr').AsString;
  combobox1.Text := database.ADO_KHTS.fieldbyname('khts_qymc').AsString;
  combobox2.Text := database.ADO_KHTS.fieldbyname('khts_khmyd').AsString;
  memo1.Text := database.ADO_KHTS.fieldbyname('khts_clbf').AsString;
  memo2.Text := database.ADO_KHTS.fieldbyname('khts_bz').AsString;
  DateTimePicker1.Date := database.ADO_KHTS.fieldbyname('khts_tsrq').AsDateTime;

end;

procedure TFRM_KHTS.ToolButton11Click(Sender: TObject);
begin
  database.ADO_KHTS.Last;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := false;
  ToolButton11.Enabled := false;
  edit1.Text := database.ADO_KHTS.fieldbyname('khts_id').AsString;
  edit2.Text := database.ADO_KHTS.fieldbyname('khts_tsr').AsString;
  edit3.Text := database.ADO_KHTS.fieldbyname('khts_tszt').AsString;
  edit4.Text := database.ADO_KHTS.fieldbyname('khts_tsnr').AsString;
  edit5.Text := database.ADO_KHTS.fieldbyname('khts_tsslr').AsString;
  combobox1.Text := database.ADO_KHTS.fieldbyname('khts_qymc').AsString;
  combobox2.Text := database.ADO_KHTS.fieldbyname('khts_khmyd').AsString;
  memo1.Text := database.ADO_KHTS.fieldbyname('khts_clbf').AsString;
  memo2.Text := database.ADO_KHTS.fieldbyname('khts_bz').AsString;
  DateTimePicker1.Date := database.ADO_KHTS.fieldbyname('khts_tsrq').AsDateTime;

end;

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

procedure TFRM_KHTS.DBGrid1CellClick(Column: TColumn);
begin
  edit1.Text := database.ADO_KHTS.fieldbyname('khts_id').AsString;
  edit2.Text := database.ADO_KHTS.fieldbyname('khts_tsr').AsString;
  edit3.Text := database.ADO_KHTS.fieldbyname('khts_tszt').AsString;
  edit4.Text := database.ADO_KHTS.fieldbyname('khts_tsnr').AsString;
  edit5.Text := database.ADO_KHTS.fieldbyname('khts_tsslr').AsString;
  combobox1.Text := database.ADO_KHTS.fieldbyname('khts_qymc').AsString;
  combobox2.Text := database.ADO_KHTS.fieldbyname('khts_khmyd').AsString;
  memo1.Text := database.ADO_KHTS.fieldbyname('khts_clbf').AsString;
  memo2.Text := database.ADO_KHTS.fieldbyname('khts_bz').AsString;
  DateTimePicker1.Date := database.ADO_KHTS.fieldbyname('khts_tsrq').AsDateTime;

end;

procedure TFRM_KHTS.ComboBox1Change(Sender: TObject);
begin
  edit2.SetFocus;
end;

procedure TFRM_KHTS.DateTimePicker1Change(Sender: TObject);
begin
  edit3.SetFocus;
end;

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

procedure TFRM_KHTS.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return) then
    edit5.SetFocus;
end;

procedure TFRM_KHTS.ComboBox2Change(Sender: TObject);
begin
 memo1.SetFocus;
end;

procedure TFRM_KHTS.ToolButton6Click(Sender: TObject);
begin
  ToolButton5.Enabled := TRUE;
  application.CreateForm(TFRM_KHTS_CX, FRM_KHTS_CX);
  FRM_KHTS_CX.ShowModal;
  FRM_KHTS_CX.Free;
end;

procedure TFRM_KHTS.FormCreate(Sender: TObject);
begin
  database.ADO_KHTS.Active := false;
  database.ADO_KHTS.Active := true;
end;

end.
上一頁 12
?? 文件大小 3578 K
?? 上傳用戶 xushenghao001
?? 所屬分類企業管理
??? 相關標簽

#Delphi #數據庫 #開發系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mrkhts.pas

?? 快捷鍵說明
