frmadmin.pas

地税局发票程序源代码,自己开发的一个程序,最近整理资料的时候看到,放在那也是放着,拿出来供大家

unit FrmAdmin;

interface

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

type
  TAdmin = class(TForm)
    DBGridEh1: TDBGridEh;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label6: TLabel;
    Edit4: TEdit;
    Label7: TLabel;
    Edit5: TEdit;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    SpeedButton15: TSpeedButton;
    SpeedButton20: TSpeedButton;
    ToolButton8: TToolButton;
    SpeedButton6: TSpeedButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    SpeedButton11: TSpeedButton;
    DataSource1: TDataSource;
    SpeedButton1: TSpeedButton;
    PrintDBGridEh1: TPrintDBGridEh;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton11Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    function QueryTabel(aSql:string):Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Admin: TAdmin;

implementation
uses
  FrmData;
{$R *.dfm}

procedure TAdmin.SpeedButton11Click(Sender: TObject);
begin
  Close;
end;

procedure TAdmin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
  Admin:=nil;
end;

procedure TAdmin.SpeedButton15Click(Sender: TObject);
begin
  if Trim(Edit1.Text)='' then
  begin
    MessageBox(Handle, '请输入用户名！', '操作提示', MB_OK + MB_ICONWARNING + 
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit1.SetFocus;
    Exit;
  end;
  if Trim(Edit2.Text)='' then
  begin
    MessageBox(Handle, '请输入密码！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit2.SetFocus;
    Exit;
  end;
  if Trim(Edit2.Text)<>Trim(Edit3.Text) then
  begin
    MessageBox(Handle, '你输入的两次密码不正确！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit3.SetFocus;
    Exit;
  end;
  if Trim(Edit4.Text)='' then
  begin
    MessageBox(Handle, '请输入身份证号码！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit2.SetFocus;
    Exit;
  end;
  try
    DataSource1.DataSet.Insert;
    DataSource1.DataSet.FieldByName('用户名').AsString:=Edit1.Text;
    DataSource1.DataSet.FieldByName('密码').AsString:=Edit2.Text;
    DataSource1.DataSet.FieldByName('性别').AsString:=ComboBox1.Text;
    DataSource1.DataSet.FieldByName('日期').AsString:=DateTimeToStr(DateTimePicker1.DateTime);
    DataSource1.DataSet.FieldByName('身份证号').AsString:=Edit4.Text;
    DataSource1.DataSet.FieldByName('备注').AsString:=Edit5.Text;
    DataSource1.DataSet.Post;
    Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear;
    MessageBox(Handle, '增加用户成功！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
  except
    DataSource1.DataSet.Cancel;
    MessageBox(Handle, '增加用户失败！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
  end;
end;

procedure TAdmin.SpeedButton20Click(Sender: TObject);
begin
  if Trim(Edit1.Text)='' then
  begin
    MessageBox(Handle, '请输入用户名！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit1.SetFocus;
    Exit;
  end;
  if Trim(Edit2.Text)='' then
  begin
    MessageBox(Handle, '请输入密码！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit2.SetFocus;
    Exit;
  end;
  if Trim(Edit2.Text)<>Trim(Edit3.Text) then
  begin
    MessageBox(Handle, '你输入的两次密码不正确！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit3.SetFocus;
    Exit;
  end;
  if Trim(Edit4.Text)='' then
  begin
    MessageBox(Handle, '请输入身份证号码！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit2.SetFocus;
    Exit;
  end;
  try
    DataSource1.DataSet.Edit;
    DataSource1.DataSet.FieldByName('密码').AsString:=Edit2.Text;
    DataSource1.DataSet.FieldByName('性别').AsString:=ComboBox1.Text;
    DataSource1.DataSet.FieldByName('日期').AsString:=DateTimeToStr(DateTimePicker1.Date);
    DataSource1.DataSet.FieldByName('身份证号').AsString:=Edit4.Text;
    DataSource1.DataSet.FieldByName('备注').AsString:=Edit5.Text;
    DataSource1.DataSet.Post;
    Edit1.ReadOnly:=False;
    Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear;
    MessageBox(Handle, '修改成功！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
  except
    DataSource1.DataSet.Cancel;
    MessageBox(Handle, '修改用户失败！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
  end;
end;

procedure TAdmin.DBGridEh1DblClick(Sender: TObject);
begin
  if DataSource1.DataSet.RecordCount<=0 then
  begin
    MessageBox(Handle, '没有数据源！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Exit;
  end;
    Edit1.Text:=DataSource1.DataSet.FieldByName('用户名').AsString;
    Edit2.Text:=DataSource1.DataSet.FieldByName('密码').AsString;
    Edit3.Text:=Edit2.Text;
    if DataSource1.DataSet.FieldByName('性别').AsString='男' then
      ComboBox1.ItemIndex:=0
    else
      ComboBox1.ItemIndex:=1;
    DateTimePicker1.Date:=StrToDateTime(DataSource1.DataSet.FieldByName(
      '日期').AsString);
    Edit4.Text:=DataSource1.DataSet.FieldByName('身份证号').AsString;
    Edit5.Text:=DataSource1.DataSet.FieldByName('备注').AsString;
end;

function TAdmin.QueryTabel(aSql: string): Boolean;
begin
  with MyData do
  begin
    ADOSelect.SQL.Clear;
    ADOSelect.SQL.Add(aSql);
    ADOSelect.Open;
  end;
end;

procedure TAdmin.FormShow(Sender: TObject);
begin
  QueryTabel('Select * From Admin');
end;

procedure TAdmin.SpeedButton1Click(Sender: TObject);
begin
  Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear;
  QueryTabel('Select * From Admin');
end;

procedure TAdmin.SpeedButton6Click(Sender: TObject);
begin
  PrintDBGridEh1.Preview;
end;

procedure TAdmin.SpeedButton5Click(Sender: TObject);
begin
  if MessageBox(Handle, '你是否要删除？', '操作提示', MB_YESNO +
    MB_ICONWARNING + MB_DEFBUTTON3 + MB_TOPMOST)=IDYES then
  begin
    DataSource1.DataSet.Delete;
  end;
end;

end.