在我用的Ado设计的Midas中为什么不能更新服务器
代码如下:
unit ClientCode2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, ToolWin, Grids, DBGrids,
DB, DBClient, MConnect;
type
TForm2 = class(TForm)
Panel1: TPanel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Button3: TButton;
Button4: TButton;
Panel2: TPanel;
Bevel1: TBevel;
ToolBar1: TToolBar;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
ToolButton1: TToolButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
DBGrid1: TDBGrid;
Bevel2: TBevel;
Label3: TLabel;
Edit1: TEdit;
Label4: TLabel;
Edit2: TEdit;
Label5: TLabel;
Edit3: TEdit;
Label6: TLabel;
Edit4: TEdit;
Bevel3: TBevel;
CheckBox1: TCheckBox;
Edit5: TEdit;
Bevel4: TBevel;
Bevel5: TBevel;
Bevel6: TBevel;
Bevel7: TBevel;
Bevel8: TBevel;
Label7: TLabel;
Edit6: TEdit;
DCOMConnection1: TDCOMConnection;
ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Changes;
procedure CheckBox1Click(Sender: TObject);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormHide(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Changes ;
begin
RadioButton1.Visible:=not RadioButton1.Visible;
RadioButton2.Visible:=not RadioButton2.Visible;
RadioButton3.Visible:=not RadioButton3.Visible;
Label1.Visible:=not Label1.Visible;
Label2.Visible:=not Label2.Visible;
Button1.Visible:=not Button1.Visible;
Button2.Visible:=not Button2.Visible;
Button3.Visible :=not Button3.Visible;
Button4.Visible:= not Button4.Visible;
Panel2.Visible :=not Panel2.Visible ;
DBGrid1.Visible :=not DbGrid1.Visible;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Changes;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Self.Hide;
end;
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
Self.Label1.Caption:=RadioButton1.Caption;
Self.Label2.Caption:=RadioButton1.Caption;
end;
procedure TForm2.RadioButton3Click(Sender: TObject);
begin
Self.Label1.Caption:=RadioButton3.Caption;
Self.Label2.Caption:=RadioButton3.Caption;
end;
procedure TForm2.RadioButton2Click(Sender: TObject);
begin
Self.Label1.Caption:=RadioButton2.Caption;
Self.Label2.Caption:=RadioButton2.Caption;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
Changes;
end;
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
Edit5.ReadOnly:=False
else
Edit5.ReadOnly:=True;
end;
procedure TForm2.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then
key:=#0;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
ClientDataSet1.Append;
end;
procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
ClientDataSet1.Delete;
end;
//更新服务器
procedure TForm2.Button3Click(Sender: TObject);
begin
if ClientDataSet1.ChangeCount >0 then
begin
ClientDataSet1.Post;
ClientDataSet1.ApplyUpdates(-1);
end;
end;
//为什么我做完上一步退出后没有更新呢
procedure TForm2.FormHide(Sender: TObject);
begin
if Panel2.Visible =True then
Changes;
end;
end.