personinfo_unit.pas

货源代理管理系统 同样是DELPHI7下的

unit PersonInfo_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls, DBCtrls, Mask, Grids, DBGrids, DB;

type
  TfrmPersonInfo = class(TForm)
    Panel1: TPanel;
    btnAdd: TSpeedButton;
    btnModfiy: TSpeedButton;
    btnDel: TSpeedButton;
    btnCancel: TSpeedButton;
    btnSave: TSpeedButton;
    btnClosed: TSpeedButton;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    SpeedButton1: TSpeedButton;
    DBGrid1: TDBGrid;
    btnFind: TSpeedButton;
    DBText1: TDBText;
    btnRefresh: TSpeedButton;
    procedure btnAddClick(Sender: TObject);
    procedure btnModfiyClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure btnClosedClick(Sender: TObject);
    procedure btnFindClick(Sender: TObject);
    procedure btnRefreshClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPersonInfo: TfrmPersonInfo;

implementation

uses ClientDM_Unit, DateChoice_Unit;

{$R *.dfm}

procedure TfrmPersonInfo.btnAddClick(Sender: TObject);
var
  MaxID: string;
begin
  DM.cdsPerson.Insert;
  DM.cdsPerson.FieldByName('PersonID').AsString :=
    DM.SocketConn.AppServer.GetMaxID('Persons','PersonID','1000');
end;

procedure TfrmPersonInfo.btnModfiyClick(Sender: TObject);
begin
  DM.cdsPerson.Edit;
end;

procedure TfrmPersonInfo.btnDelClick(Sender: TObject);
begin
  if Application.MessageBox('确定要删除此项吗?','提示',68) = IDNo then
    Exit;
  DM.cdsPerson.Delete;
  DM.cdsPerson.ApplyUpdates(0); 
end;

procedure TfrmPersonInfo.btnCancelClick(Sender: TObject);
begin
  Dm.cdsPerson.Cancel;
end;

procedure TfrmPersonInfo.btnSaveClick(Sender: TObject);
begin
  if  DM.cdsPerson.State in [dsInsert,dsEdit] then
  begin
    DM.cdsPerson.Post;
    DM.cdsPerson.ApplyUpdates(0);
  end;
end;

procedure TfrmPersonInfo.SpeedButton1Click(Sender: TObject);
begin
  Flag := 1;
  frmDateChoice := TfrmDateChoice.Create(Self);
  try
    frmDateChoice.ShowModal;
  finally
    frmDateChoice.Free;
  end;
end;

procedure TfrmPersonInfo.btnClosedClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmPersonInfo.btnFindClick(Sender: TObject);
var
  PersonBool: Boolean;
  PersonID: string;
begin
  PersonID := DBText1.Caption;
  PersonBool := InputQuery('请输入要查询编号','查询',PersonID);
  if PersonBool then
  begin
    DM.cdsPerson.Filtered := False;
    DM.cdsPerson.Filter :=' PersonID=' + QuotedStr(PersonID);
    DM.cdsPerson.Filtered := True;
  end;
end;

procedure TfrmPersonInfo.btnRefreshClick(Sender: TObject);
begin     { TODO : 刷新数据集 }
  DM.cdsPerson.Filtered := False;
  DM.cdsPerson.Filter :='';
  DM.cdsPerson.Filtered := True;
end;

end.