salsumjia.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 589 行 · 第 1/3 页

    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLine9: TppLine;
    ppLine10: TppLine;
    ppLine11: TppLine;
    ppLine12: TppLine;
    ppLabel29: TppLabel;
    ppLine13: TppLine;
    ppLabel30: TppLabel;
    ppLine14: TppLine;
    ppLabel31: TppLabel;
    ppLabel32: TppLabel;
    ppLine15: TppLine;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLabel33: TppLabel;
    ppLabel34: TppLabel;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLabel35: TppLabel;
    ppLabel36: TppLabel;
    ppLabel37: TppLabel;
    ppLabel38: TppLabel;
    ppLabel39: TppLabel;
    ppLabel40: TppLabel;
    ppLabel41: TppLabel;
    ppLabel42: TppLabel;
    ppLabel43: TppLabel;
    ppLabel44: TppLabel;
    ppLabel45: TppLabel;
    ppLabel46: TppLabel;
    ppLabel47: TppLabel;
    ppLabel48: TppLabel;
    ppLabel49: TppLabel;
    ppLabel50: TppLabel;
    ppLabel51: TppLabel;
    ppLabel52: TppLabel;
    ppLabel53: TppLabel;
    ppLine21: TppLine;
    ppLine22: TppLine;
    ppLabel54: TppLabel;
    ppLine23: TppLine;
    ppLabel55: TppLabel;
    ppLine26: TppLine;
    ppLabel56: TppLabel;
    ppDetailBand1: TppDetailBand;
    ppLine29: TppLine;
    ppLine34: TppLine;
    ppLine35: TppLine;
    ppLine36: TppLine;
    ppLine37: TppLine;
    ppLine38: TppLine;
    ppLine39: TppLine;
    ppLine40: TppLine;
    ppLine41: TppLine;
    ppLine42: TppLine;
    ppDBText5: TppDBText;
    ppLine43: TppLine;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppLine44: TppLine;
    ppDBText8: TppDBText;
    ppLine45: TppLine;
    ppLine46: TppLine;
    ppLine47: TppLine;
    ppLine48: TppLine;
    ppDBText9: TppDBText;
    ppLine49: TppLine;
    ppLine50: TppLine;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppLine51: TppLine;
    ppDBText21: TppDBText;
    ppDBText22: TppDBText;
    ppLine52: TppLine;
    ppLine53: TppLine;
    ppLine54: TppLine;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit2Exit(Sender: TObject);
    procedure ppReport8BeforePrint(Sender: TObject);
    procedure ppReport8PreviewFormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ppReport4BeforePrint(Sender: TObject);
    procedure ppReport4PreviewFormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formsalsumjia: TFormsalsumjia;

implementation

uses datamol, main;

{$R *.DFM}

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

procedure TFormsalsumjia.RadioGroup1Click(Sender: TObject);
var
qry:tadoquery;
begin
     case radiogroup1.ItemIndex of
       0:
         begin
           combobox1.visible:=false;
           //edit2.visible:=false;
           //edit3.visible:=false;
          // statictext1.Visible:=false;
         end;
       1:
       begin
         combobox1.visible:=true;
         combobox1.SetFocus;
        // edit2.Visible:=false;
        // edit3.visible:=false;
         qry:=tadoquery.Create(self);
         qry.Connection:=datamod.Database1;
         qry.SQL.Text:='select * from pub05010 order by dno';
         qry.Open;
        // statictext1.Visible:=false;
      while not qry.Eof do
        begin
          combobox1.Items.Add(qry.fieldbyname('dept').asstring);
          qry.Next;
        end;
          qry.Close;
        combobox1.text:=combobox1.items[0];
       end;
       2:
         begin
          // edit2.Visible:=true;
          // edit2.SetFocus;
          // edit3.visible:=true;
           combobox1.Visible:=false;
         //  statictext1.Visible:=true;
         end;
     end;
 end;

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

procedure TFormsalsumjia.FormCreate(Sender: TObject);
begin
edit1.Text:=copy(datetostr(date),1,7);
end;

procedure TFormsalsumjia.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Formsalsumjia:=nil;
  action:=cafree;
end;

procedure TFormsalsumjia.Edit2Exit(Sender: TObject);
begin
 //edit3.Text :=edit2.Text;
end;

procedure TFormsalsumjia.ppReport8BeforePrint(Sender: TObject);
begin
  pplabel353.caption:=pubworkname;
  pplabel315.Caption:= companyname1;
  pplabel316.Caption:='日/月薪员工'+ Edit1.Text+'月薪资';

end;