u_xtsz.pas

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

unit U_xtsz;

interface

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

type
  Tfrm_xtsz = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure editvalue;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_xtsz: Tfrm_xtsz;

implementation

uses U_Data, U_Public, U_login, U_htgl;

{$R *.dfm}

procedure Tfrm_xtsz.editvalue;
begin
//edit1.Text:=data1.xtsz.fieldbyname('yblj').Value;
edit2.Text:=data1.xtsz.fieldbyname('cglj').Value;
edit3.Text:=data1.xtsz.fieldbyname('sylj').Value;
edit4.Text:=data1.xtsz.fieldbyname('xglj').Value;
edit5.Text:=data1.xtsz.fieldbyname('qdlj').Value;
edit6.Text:=data1.xtsz.fieldbyname('hsz').Value;
end;

procedure Tfrm_xtsz.BitBtn1Click(Sender: TObject);
begin
with data1.xtsz do
begin
  close;
  sql.Clear;
  sql.Add('select * from 系统路径 ');
  open;
end;
if data1.xtsz.RecordCount>0 then
application.MessageBox('路径已经存在，不能重复设置！','提示',64)
else
begin
if (trim(edit2.Text)<>'') and (trim(edit3.Text)<>'') and (trim(edit4.Text)<>'') and (trim(edit5.Text)<>'') and (trim(edit6.Text)<>'') then
with data1.xtsz do
begin
  close;
  sql.Clear;
  sql.Add('insert 系统路径 values (:a,:b,:c,:d,:e)');
  //parameters.ParamByName('a').Value:=trim(edit1.Text);
  parameters.ParamByName('a').Value:=trim(edit2.Text);
  parameters.ParamByName('b').Value:=trim(edit3.Text);
  parameters.ParamByName('c').Value:=trim(edit4.Text);
  parameters.ParamByName('d').Value:=trim(edit5.Text);
  parameters.ParamByName('e').Value:=trim(edit6.Text);
  execsql;
end;
application.MessageBox('保存成功！','提示',64);
frm_main.loaddata;
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:dd:ss',now),'保存路径');
end;
end;

procedure Tfrm_xtsz.BitBtn2Click(Sender: TObject);
begin
if (trim(edit2.Text)<>'') and (trim(edit3.Text)<>'') and (trim(edit4.Text)<>'') and (trim(edit5.Text)<>'') and (trim(edit6.Text)<>'') then
with data1.xtsz do
begin
   edit;
   //fieldbyname('yblj').Value:=trim(edit1.Text);
   fieldbyname('cglj').Value:=trim(edit2.Text);
   fieldbyname('sylj').Value:=trim(edit3.Text);
   fieldbyname('xglj').Value:=trim(edit4.Text);
   fieldbyname('qdlj').Value:=trim(edit5.Text);
   fieldbyname('hsz').Value:=trim(edit6.Text);
   post;
end;
application.MessageBox('修改成功！','提示',64);
Rz_Gl(czy,formatdatetime('yyyy年mm月dd日 hh:dd:ss',now),'修改路径');
end;

procedure Tfrm_xtsz.FormShow(Sender: TObject);
begin
with data1.xtsz do
begin
   close;
   sql.Clear;
   sql.Add('select * from 系统路径');
   open;
end;
if data1.xtsz.RecordCount>0 then
editvalue;
end;

procedure Tfrm_xtsz.BitBtn3Click(Sender: TObject);
begin
close;
end;

end.