u_lxsz.pas

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

unit U_lxsz;

interface

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

type
  Tfrm_lxsz = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Panel3: TPanel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    OpenDialog1: TOpenDialog;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_lxsz: Tfrm_lxsz;

implementation

uses U_Data, U_Public, U_login, U_htgl;

{$R *.dfm}

procedure Tfrm_lxsz.BitBtn2Click(Sender: TObject);
begin
if (trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') then
with  data1.lxsz do
try
begin
   close;
   sql.Clear;
   sql.Add('insert 合同类型 values(:a,:b)');
   parameters.ParamByName('a').Value:=trim(edit1.Text);
   parameters.ParamByName('b').Value:=trim(edit2.Text);
   execsql;
end;
edit1.Clear;
edit2.Clear;
self.OnShow(sender);
application.MessageBox('保存成功','提示',64);
frm_main.loaddata;
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:dd:ss',now),'设置合同类型');
except
application.MessageBox('保存失败','提示',64);
end
else
application.MessageBox('请输入类型和路径','提示',64);
end;

procedure Tfrm_lxsz.BitBtn3Click(Sender: TObject);
begin
if (trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') then
begin
with data1.lxsz do
try
begin
   edit;
   fieldbyname('htlx').Value:=trim(edit1.Text);
   fieldbyname('yblj').Value:=trim(edit2.Text);
   post;
end;
edit1.Clear;
edit2.Clear;
self.OnShow(sender);
application.MessageBox('修改成功','提示',64);
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:dd:ss',now),'修改合同类型');
except
application.MessageBox('修改失败','提示',64);
end;
end
else
application.MessageBox('类型和路径不能为空','提示',64);
end;

procedure Tfrm_lxsz.BitBtn4Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要删除吗？','提示',mb_yesno+mb_iconquestion)=idyes then
begin
   edit1.Clear;
   edit2.Clear;
   data1.lxsz.Delete;  
   Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:dd:ss',now),'删除合同类型');
end;
end;

procedure Tfrm_lxsz.BitBtn5Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_lxsz.BitBtn1Click(Sender: TObject);
begin
if opendialog1.Execute then
edit2.Text:=opendialog1.FileName;
end;

procedure Tfrm_lxsz.FormShow(Sender: TObject);
begin
with data1.lxsz do
begin
   close;
   sql.Clear;
   sql.Add('select * from 合同类型');
   open;
end;
data1.lxsz.Active:=true;
end;

procedure Tfrm_lxsz.DBGrid1CellClick(Column: TColumn);
begin
if dbgrid1.DataSource.DataSet<>nil then
   if dbgrid1.DataSource.DataSet.RecordCount>0 then
   begin
   edit1.Text:=data1.lxsz.fieldbyname('htlx').Value;
   edit2.Text:=data1.lxsz.fieldbyname('yblj').Value;
   end;
end;

procedure Tfrm_lxsz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frm_main.loaddata;
end;

end.