u_dwxx.pas

很好的合同管理系统完整源码,适合初学者参考

unit U_dwxx;

interface

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

type
  Tfrm_dwxx = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Memo1: TMemo;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure editclear;
    procedure editvalue;
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    m:integer;
  end;
  const
  m=0;
var
  frm_dwxx: Tfrm_dwxx;

implementation

uses U_data, U_Public, U_login;

{$R *.dfm}

procedure Tfrm_dwxx.editvalue;
begin
edit1.Text:=data1.ADOQYdwxx.FieldByName('单位名称').Value;
edit2.Text:=data1.ADOQYdwxx.FieldByName('法人').Value;
edit3.Text:=data1.ADOQYdwxx.FieldByName('创建日期').Value;
edit4.Text:=data1.ADOQYdwxx.FieldByName('单位电话').Value;
edit5.Text:=data1.ADOQYdwxx.FieldByName('单位邮箱').Value;
edit6.Text:=data1.ADOQYdwxx.FieldByName('单位地址').Value;
memo1.Text:=data1.ADOQYdwxx.FieldByName('单位介绍').Value; 
end;

procedure Tfrm_dwxx.editclear;
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
memo1.Clear;
end;



procedure Tfrm_dwxx.SpeedButton6Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_dwxx.FormShow(Sender: TObject);
begin
with data1.ADOQYdwxx do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 单位信息表');
      open;
   end;
   if data1.ADOQYdwxx.FieldByName('单位名称').Value= null then
      application.MessageBox('数据库中没有数据，请添加数据！','提示',64)
   else
      editvalue;
end;

procedure Tfrm_dwxx.BitBtn1Click(Sender: TObject);
begin
if edit1.Text<>'' then
if data1.ADOQYdwxx.FieldByName('单位名称').Value= null then
try
with data1.ADOQYdwxx do
   begin
      close;
      sql.Clear;
      sql.Add('insert 单位信息表 values (:a,:b,:c,:d,:e,:f,:g)');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      parameters.ParamByName('b').Value:=trim(edit2.Text);
      parameters.ParamByName('c').Value:=trim(edit3.Text);
      parameters.ParamByName('d').Value:=trim(edit4.Text);
      parameters.ParamByName('e').Value:=trim(edit5.Text);
      parameters.ParamByName('f').Value:=trim(edit6.Text);
      parameters.ParamByName('g').Value:=trim(memo1.Text);
      execsql
   end;
      application.MessageBox('添加成功','提示',64);
      Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:mm:ss',now),'添加公司信息');
      self.OnShow(sender);
      editvalue;
except
application.MessageBox('添加失败','提示',64);
end
else
application.MessageBox('单位信息已经存在，不能添加，如有需要请对已有信息修改！','提示',64);
end;


procedure Tfrm_dwxx.BitBtn2Click(Sender: TObject);
begin
with data1.ADOQYdwxx do
   begin
      edit;
      fieldbyname('单位名称').Value:=trim(edit1.Text);
      fieldbyname('法人').Value:=trim(edit2.Text);
      fieldbyname('创建日期').Value:=trim(edit3.Text);
      fieldbyname('单位电话').Value:=trim(edit4.Text);
      fieldbyname('单位邮箱').Value:=trim(edit5.Text);
      fieldbyname('单位地址').Value:=trim(edit6.Text);
      fieldbyname('单位介绍').Value:=trim(memo1.Text);
      post;
   end;
      application.MessageBox('修改成功','提示',64);
      Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:mm:ss',now),'修改公司信息');
      //editvalue;
end;

procedure Tfrm_dwxx.BitBtn3Click(Sender: TObject);
begin
//data1.ADOQYdwxx.Delete;
editvalue;
end;

procedure Tfrm_dwxx.BitBtn4Click(Sender: TObject);
begin
close;
end;

end.