ps_comperson.pas

DELPHI5加SQL SERVER2000完成的进销存系统,具体哪些内容记不清了,六七年前写的,希望还能有点贡献

unit PS_comperson;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, DBCtrls, Mask, Menus,db;

type
  TF_comperson = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    E_id: TDBEdit;
    E_name: TDBEdit;
    E_departmentName: TDBEdit;
    E_birthday: TDBEdit;
    E_assumedate: TDBEdit;
    E_telephone: TDBEdit;
    M_memo: TDBMemo;
    R_man: TRadioButton;
    R_woman: TRadioButton;
    CB_departid: TDBLookupComboBox;
    procedure R_manClick(Sender: TObject);
    procedure R_womanClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CB_departidCloseUp(Sender: TObject);
    procedure afterInsert;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure HaveRecord;
    procedure NoRecord;
    procedure beforeinsert;
    procedure post;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_comperson: TF_comperson;
  firstappend:integer;
  isinsert:boolean;
implementation

uses PS_db, PS_main;

{$R *.DFM}
//自定义函数部分
procedure TF_comperson.afterinsert;
begin
  with tf_comperson(f_main.ActiveMDIChild) do begin
  r_man.checked:=comdatabase.comperson.fieldvalues['sex']=0;
  r_woman.checked:=not r_man.checked;
  end;
end;

procedure TF_comperson.NoRecord;
begin
  with tf_comperson(f_main.activemdichild) do begin
    E_id.Enabled:=false;
    E_name.Enabled:=false;
    cb_departid.Enabled:=false;
    E_birthday.Enabled:=false;
    E_assumedate.Enabled:=false;
    E_telephone.Enabled:=false;
    R_man.checked:=false;
    R_man.Enabled:=false;
    R_woman.checked:=false;
    R_woman.Enabled:=false;
    M_memo.Enabled:=false;
    end;
end;

procedure TF_comperson.HaveRecord;
begin
  with tf_comperson(f_main.activemdichild) do begin
    E_id.Enabled:=true;
    E_name.Enabled:=true;
    cb_departid.Enabled:=true;
    E_birthday.Enabled:=true;
    E_assumedate.Enabled:=true;
    E_telephone.Enabled:=true;
    R_man.checked:=false;
    R_man.Enabled:=true;
    R_woman.checked:=false;
    R_woman.Enabled:=true;
    M_memo.Enabled:=true;
    end;
end;

procedure tf_comperson.beforeinsert;
begin
  with tf_comperson(f_main.activemdichild) do
    e_id.setfocus;
end;

procedure tf_comperson.post;
begin
  with comdatabase.comperson do
    if (state=dsedit)or(state=dsinsert)then begin
      fieldvalues['sex']:=ord(tf_comperson(f_main.activemdichild).r_woman.Checked);
      post;
      close;
      open;
      end;
end;
//程序正体部分
procedure TF_comperson.FormActivate(Sender: TObject);
begin
  with comdatabase do begin
    comdepartment.open;
    comperson.open;
    end;
  f_main.currentTable:=comdatabase.comperson;
  f_main.TableName:=Rcomperson;
  f_main.buttonstate;
end;

procedure TF_comperson.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  with comdatabase do begin
    comdepartment.close;
    comperson.close;
    end;
  f_main.currentTable:=nil;
  action:=cafree;
end;

procedure TF_comperson.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  canclose:=f_main.savetocache;
end;

procedure TF_comperson.R_manClick(Sender: TObject);
begin
  with comdatabase.comperson do begin
      edit;
      fieldvalues['sex']:=0;
    end;
end;

procedure TF_comperson.R_womanClick(Sender: TObject);
begin
  with comdatabase.comperson do begin
      edit;
      fieldvalues['sex']:=1;
    end;
end;

procedure TF_comperson.CB_departidCloseUp(Sender: TObject);
begin
  with comdatabase do begin
    comperson.edit;
    comperson.fieldvalues['departid']:=comdepartment.fieldvalues['id'];
    end;
end;

end.