user.pas

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

unit user;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxTL, dxDBCtrl, dxDBGrid, ahmtbackground, StdCtrls, dxCntner,
  ExtCtrls, ahmtlabel, Buttons, ahmtpanel;

type
  TF_User = class(TForm)
    Splitter1: TSplitter;
    AHMPanel1: TAHMPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    AHMPanel2: TAHMPanel;
    Panel1: TPanel;
    AHMPanel4: TAHMPanel;
    AHMLabel2: TAHMLabel;
    SpeedButton6: TSpeedButton;
    AHMLabel3: TAHMLabel;
    Edit7: TEdit;
    dxDBGrid1: TdxDBGrid;
    AHMPanel3: TAHMPanel;
    Label1: TLabel;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    AHMBackground1: TAHMBackground;
    AHMBackground2: TAHMBackground;
    dxDBGrid1User_ID: TdxDBGridMaskColumn;
    dxDBGrid1User_Name: TdxDBGridMaskColumn;
    dxDBGrid1User_Password: TdxDBGridMaskColumn;
    dxDBGrid1User_Power: TdxDBGridMaskColumn;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_User: TF_User;

implementation

uses dm;

{$R *.dfm}

procedure TF_User.SpeedButton5Click(Sender: TObject);
begin
   close;
end;

procedure TF_User.SpeedButton8Click(Sender: TObject);
begin
   With MyDM.UserQuery do
   begin
      close;
      With SQL do
      begin
         clear;
         Add('insert into Users values(:p0,:p1,:p2,:p3)');
      end;
      Parameters[0].Value := Edit1.Text;
      Parameters[1].value := Edit2.text;
      Parameters[2].value := Edit3.text;
      if RadioButton1.Checked = true then
      begin
         Parameters[3].Value := '1';
      end;
      if RadioButton2.Checked = true then
      begin
         Parameters[3].Value := '2';
      end;
      if RadioButton3.Checked = true then
      begin
         Parameters[3].Value := '3';
      end;

      ExecSQL;
   end;

   With MyDM.UserQuery do
   begin
      close;
      with SQL do
      begin
         clear;
         Add('select * from Users');
      end;
      ExecSQL;
      Open;
   end;

end;

procedure TF_User.SpeedButton2Click(Sender: TObject);
begin
   Edit1.Text := dxDBGrid1.DataSource.DataSet.Fields[0].AsString;
   Edit2.Text := dxDBGrid1.DataSource.DataSet.Fields[1].AsString;
   Edit3.Text := dxDBGrid1.DataSource.DataSet.Fields[2].AsString;
   if dxDBGrid1.DataSource.DataSet.Fields[3].AsString = '1' then
   begin
      RadioButton1.Checked := true;
   end;
   if dxDBGrid1.DataSource.DataSet.Fields[3].AsString = '2' then
   begin
      RadioButton2.Checked := true;
   end;
   if dxDBGrid1.DataSource.DataSet.Fields[3].AsString = '3' then
   begin
      RadioButton3.Checked := true;
   end;
end;

end.