ps_comdepartment.pas

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

unit PS_comdepartment;

interface

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

type
  TF_comdepartment = class(TForm)
    GroupBox1: TGroupBox;
    L_id1: TLabel;
    L_name1: TLabel;
    L_memo1: TLabel;
    E_id: TDBEdit;
    E_name: TDBEdit;
    M_memo: TDBMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure HaveRecord;
    procedure NoRecord;
    procedure beforeinsert;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_comdepartment: TF_comdepartment;

implementation

uses PS_db, PS_main;

{$R *.DFM}
//自定义函数部分

procedure TF_comdepartment.NoRecord;
begin
  with tf_comdepartment(f_main.activemdichild) do begin
    E_id.Enabled:=false;
    E_name.Enabled:=false;
    M_memo.Enabled:=false;
    end;
end;

procedure TF_comdepartment.HaveRecord;
begin
  with tf_comdepartment(f_main.activemdichild) do begin
    E_id.Enabled:=true;
    E_name.Enabled:=true;
    M_memo.Enabled:=true;
    end;
end;

procedure tf_comdepartment.beforeinsert;
begin
  with tf_comdepartment(f_main.activemdichild) do
    e_id.setfocus;
end;
//程序正体部分
procedure TF_comdepartment.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  with comdatabase do begin
    comdepartment.open;
    end;
  f_main.currentTable:=nil;
  action:=cafree;
end;

procedure TF_comdepartment.FormShow(Sender: TObject);
begin
  with comdatabase do begin
    comdepartment.open;
    end;
  f_main.currentTable:=comdatabase.comdepartment;
  f_main.TableName:=Rcomdepartment;
  f_main.buttonstate;
end;

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

end.