bankset.pas

pasa人力资源考勤管理系统

unit bankset;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ComCtrls, Menus,db,adodb;

type
  TFormbankset = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label2: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label3: TLabel;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Label4: TLabel;
    DBEdit8: TDBEdit;
    GroupBox2: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    Label8: TLabel;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    Label22: TLabel;
    Label23: TLabel;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    Label24: TLabel;
    Label25: TLabel;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    Label26: TLabel;
    ComboBox1: TComboBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    PopupMenu3: TPopupMenu;
    MenuItem2: TMenuItem;
    PopupMenu4: TPopupMenu;
    N2: TMenuItem;
    PopupMenu5: TPopupMenu;
    N3: TMenuItem;
    PopupMenu6: TPopupMenu;
    N4: TMenuItem;
    PopupMenu7: TPopupMenu;
    N5: TMenuItem;
    PopupMenu8: TPopupMenu;
    N6: TMenuItem;
    PopupMenu9: TPopupMenu;
    PopupMenu10: TPopupMenu;
    PopupMenu11: TPopupMenu;
    PopupMenu12: TPopupMenu;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    Button1: TButton;
    Button2: TButton;
    DBCheckBox1: TDBCheckBox;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    DBEdit17: TDBEdit;
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure N1Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBCheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formbankset: TFormbankset;

implementation

uses datamol;

{$R *.DFM}

procedure TFormbankset.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      selectnext(activecontrol,true,true);
   end;
end;

procedure TFormbankset.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      selectnext(activecontrol,true,true);
   end;
end;

procedure TFormbankset.N1Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname ');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname10) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname10='''+noname1+''' ');
   end;
   aqy.execsql;
   label10.caption:='【'+noname1+'】';
   label10.update;
   end;
end;

procedure TFormbankset.MenuItem1Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname  ');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname11) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname11='''+noname1+''' ');
   end;
   aqy.execsql;
   label11.caption:='【'+noname1+'】';
   label11.update;
   end;
end;

procedure TFormbankset.MenuItem2Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname ');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname12) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname12='''+noname1+''' ');
   end;
   aqy.execsql;
   label12.caption:='【'+noname1+'】';
   label12.update;
   end;
end;

procedure TFormbankset.N2Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname ');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname13) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname13='''+noname1+''' ');
   end;
   aqy.execsql;
   label13.caption:='【'+noname1+'】';
   label13.update;
   end;
end;

procedure TFormbankset.N3Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname ');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname14) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname14='''+noname1+''' ');
   end;
   aqy.execsql;
   label14.caption:='【'+noname1+'】';
   label14.update;
   end;
end;

procedure TFormbankset.N4Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname15) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname15='''+noname1+''' ');
   end;
   aqy.execsql;
   label15.caption:='【'+noname1+'】';
   label15.update;
   end;
end;

procedure TFormbankset.N5Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname ');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname16) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname16='''+noname1+''' ');
   end;
   aqy.execsql;
   label16.caption:='【'+noname1+'】';
   label16.update;
   end;
end;

procedure TFormbankset.N6Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname17) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname17='''+noname1+''' ');
   end;
   aqy.execsql;
   label17.caption:='【'+noname1+'】';
   label17.update;
   end;
end;

procedure TFormbankset.N7Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname ');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname19) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname19='''+noname1+''' ');
   end;
   aqy.execsql;
   label19.caption:='【'+noname1+'】';
   label19.update;
   end;
end;

procedure TFormbankset.N8Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname ');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname20) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname20='''+noname1+''' ');
   end;
   aqy.execsql;
   label20.caption:='【'+noname1+'】';
   label20.update;
   end;
end;

procedure TFormbankset.N9Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname22) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname22='''+noname1+''' ');
   end;
   aqy.execsql;
   label22.caption:='【'+noname1+'】';
   label22.update;
   end;
end;

procedure TFormbankset.N10Click(Sender: TObject);
var
  noname1:string;
  clickok:boolean;
  aqy,aqy1:tadoquery;
begin
  clickok:=inputquery('请录入栏位名称','栏位名称',noname1);
 if   clickok and (noname1<>'' ) then
  begin
   aqy1:=tadoquery.create(application);
   aqy1.connection:=datamod.database1;
   aqy1.close;
   aqy1.sql.clear;
   aqy1.SQL.add('select * from banknoname');
   aqy1.open;

   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.close;
   aqy.sql.clear;
   if aqy1.eof then
   begin
    aqy.SQL.add('insert into banknoname(noname24) values('''+noname1+''') ');
   end else
   begin
    aqy.sql.add('update banknoname set noname24='''+noname1+''' ');
   end;
   aqy.execsql;
   label24.caption:='【'+noname1+'】';
   label24.update;
   end;
end;

procedure TFormbankset.Button2Click(Sender: TObject);
begin
 close;
end;

procedure TFormbankset.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     adodataset1.Close;
     formbankset:=nil;
     action:=cafree;
end;

procedure TFormbankset.FormCreate(Sender: TObject);
var i:integer;
    aqy1:tadoquery;
begin
 aqy1:=tadoquery.create(application);
 aqy1.connection:=datamod.database1;
 aqy1.Close;
 aqy1.SQL.Clear;
 aqy1.sql.Text:='select * From banknoname';
 aqy1.Open;
 if not aqy1.Eof then
 begin
  for i:=10 to 24 do
  if (i<>18) and (i<>21) and (i<>23) and (trim(aqy1.fieldbyname('noname'+inttostr(i)).asstring)<>'') then
   tlabel(findcomponent('label'+inttostr(i))).caption:='【'+aqy1.fieldbyname('noname'+inttostr(i)).asstring+'】';
 end;
 adodataset1.Close;
 adodataset1.Open;
 for i:=1 to 8 do
 begin
  tdbedit(FindComponent('dbedit'+inttostr(i))).Enabled:=adodataset1.fieldbyname('head').AsBoolean;
 end;


 if adodataset1.RecordCount=0 then
  combobox1.ItemIndex:=0
 else
  combobox1.Text:=adodataset1.fieldbyname('style').asstring;
end;

procedure TFormbankset.Button1Click(Sender: TObject);
begin
 adodataset1.Edit;
 adodataset1.FieldByName('style').asstring:=trim(combobox1.text);
 adodataset1.Post;
end;

procedure TFormbankset.DBCheckBox1Click(Sender: TObject);
var i:integer;
begin
 for i:=1 to 8 do
 begin
  tdbedit(FindComponent('dbedit'+inttostr(i))).Enabled:=dbcheckbox1.Checked;
 end;
end;

end.