u_czygl.pas

一套完整的合同管理系统,大家可以下载来看一看

unit U_czygl;

interface

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

type
  Tfrm_czygl = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn4: TBitBtn;
    DBGrid2: TDBGrid;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid2CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_czygl: Tfrm_czygl;

implementation

uses U_Data;

{$R *.dfm}

procedure Tfrm_czygl.BitBtn1Click(Sender: TObject);
begin
if (trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') then
begin
   with data1.ADOQuery1 do
   begin
      close;
      sql.Clear;
      sql.Add('insert user1 values(:a,:b)');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      parameters.ParamByName('b').Value:=trim(edit2.Text);
      execsql;
   end;
   self.OnShow(sender);
   application.MessageBox('保存成功','提示',64);
end
else
   application.MessageBox('请输入用户名和密码','提示',64);
end;

procedure Tfrm_czygl.BitBtn2Click(Sender: TObject);
begin
if (trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') then
begin
   with data1.ADOQuery1 do
   begin
      edit;
      fieldbyname('username').Value:=trim(edit1.Text);
      fieldbyname('password').Value:=trim(edit2.Text);
      post;
   end;
   application.MessageBox('修改成功','提示',64);
end
else
   application.MessageBox('请输入用户名和密码','提示',64);
end;

procedure Tfrm_czygl.BitBtn3Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要删除吗？','提示',mb_yesno+mb_iconquestion)=idyes then
   data1.ADOQuery1.Delete;
end;

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

procedure Tfrm_czygl.FormShow(Sender: TObject);
begin
with data1.ADOQuery1 do
begin
   close;
   sql.Clear;
   sql.Add('select * from user1');
   open;
end;
data1.ADOQuery1.Active:=true;
end;

procedure Tfrm_czygl.DBGrid1CellClick(Column: TColumn);
begin
if dbgrid2.DataSource.DataSet<>nil then
   if dbgrid2.DataSource.DataSet.RecordCount>0 then
   begin
      edit1.Text:=data1.ADOQuery1.fieldbyname('username').Value;
      edit2.Text:=data1.ADOQuery1.fieldbyname('passwordmm').Value;
   end;
end;

procedure Tfrm_czygl.DBGrid2CellClick(Column: TColumn);
begin
if dbgrid2.DataSource.DataSet<>nil then
   if dbgrid2.DataSource.DataSet.RecordCount>0 then
      begin
         edit1.Text:=data1.ADOQuery1.fieldbyname('username').Value;
         edit2.Text:=data1.ADOQuery1.fieldbyname('password').Value;
      end;
end;

end.