insdefine.pas

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

PAS
546 行
字号
12
       else
         while not Qry1.Eof do  //不为空，就把它加入listbox1(工号，姓名，性别)中，等待user选择
         begin
           listbox1.Items.Add(Qry1.fieldbyname('workno').asstring+copychar(' ',Qry1.fieldbyname('workno').size-length(Qry1.fieldbyname('workno').asstring))+'   '+
                              Qry1.fieldbyname('name').asstring+copychar(' ',Qry1.fieldbyname('name').size-length(Qry1.fieldbyname('name').asstring))+'   '+
                              Qry1.fieldbyname('sexname').asstring);
           Qry1.Next;
         end;
     end;
     Qry1.Close;
   end;
end;

procedure TForminsdefine.ComboBox1Change(Sender: TObject);
begin
  if length(combobox1.text)>8 then
  begin
     listbox1.Items.Clear;
     Qry1.close;
     Qry1.SQL.Text:='select * from pub05010 where dno='''+trim(copy(combobox1.text,1,8))+''' ';
     Qry1.Open;
     if Qry1.eof then
       Application.MessageBox('没有该部门，部门编号有误','Error',mb_ok+mb_iconerror)
     else begin
       Qry1.close;  //选出该部门所有的员工
       Qry1.SQL.Clear;
       Qry1.SQL.Text:='select workno,name,sexname from per24010 where deptno='''+trim(copy(combobox1.text,1,8))+''' and leave=0 order by workno';
       Qry1.Open;
       if Qry1.Eof then    //如果为空，提示user信息
         Application.MessageBox('该部门没有员工','Error',mb_ok+mb_iconerror)
       else
         while not Qry1.Eof do  //不为空，就把它加入listbox1(工号，姓名，性别)中，等待user选择
         begin
           listbox1.Items.Add(Qry1.fieldbyname('workno').asstring+copychar(' ',Qry1.fieldbyname('workno').size-length(Qry1.fieldbyname('workno').asstring))+'   '+
                              Qry1.fieldbyname('name').asstring+copychar(' ',Qry1.fieldbyname('name').size-length(Qry1.fieldbyname('name').asstring))+'   '+
                              Qry1.fieldbyname('sexname').asstring);
           Qry1.Next;
         end;
     end;
     Qry1.Close;
  end;
end;

procedure TForminsdefine.Edit1KeyPress(Sender: TObject; var Key: Char);
var
   i,p:integer;
   have:boolean;
begin
  if key=#13 then
  begin
    have:=false;
    p:=-1;
    for i:=0 to Listbox2.Items.Count-1 do
    begin
      if trim(copy(listbox2.items[i],1,8))=Edit1.text then
      begin
         have:=true;
         p:=i;
      end;
    end;
    if not have then
    begin
      Qry1.Close;
      Qry1.sql.text:='Select * from per24010 where workno='''+Edit1.text+''' and leave=0 ';
      Qry1.open;
      if not Qry1.eof then
      begin
           listbox2.Items.Add(Qry1.fieldbyname('workno').asstring+copychar(' ',Qry1.fieldbyname('workno').size-length(Qry1.fieldbyname('workno').asstring))+'   '+
                              Qry1.fieldbyname('name').asstring+copychar(' ',Qry1.fieldbyname('name').size-length(Qry1.fieldbyname('name').asstring))+'   '+
                              Qry1.fieldbyname('sexname').asstring);
           listbox2.ItemIndex:=Listbox2.Items.count-1;
      end else
         Application.MessageBox('没有该工号的员工','Error',mb_ok+mb_iconerror);
    end;
    listbox2.ItemIndex:=p;
    edit1.Clear;
  end;
end;

procedure TForminsdefine.RG1Click(Sender: TObject);
begin
    if rg1.ItemIndex=0 then
    begin
       combobox1.enabled:=false;
       listbox1.enabled:=false;
       speedbutton1.enabled:=false;
       speedbutton2.enabled:=false;
       Listbox2.clear;
       Qry1.close;
       Qry1.sql.text:='Select * from per24010 where stoppay=0 and leave=0 ';
       //Qry1.sql.text:='Select * from per24010 where brushcard=1 and stoppay=0 and leave=0 ';
       Qry1.open;
       while not Qry1.eof do
       begin
           listbox2.Items.Add(Qry1.fieldbyname('workno').asstring+copychar(' ',Qry1.fieldbyname('workno').size-length(Qry1.fieldbyname('workno').asstring))+'   '+
                              Qry1.fieldbyname('name').asstring+copychar(' ',Qry1.fieldbyname('name').size-length(Qry1.fieldbyname('name').asstring))+'   '+
                              Qry1.fieldbyname('sexname').asstring);
           Qry1.next;
       end;
    label1.caption:=inttostr(listbox2.items.count);
    label1.update;
    end else
    begin
       combobox1.enabled:=true;
       listbox1.enabled:=true;
       speedbutton1.enabled:=true;
       speedbutton2.enabled:=true;
    end;
end;

procedure TForminsdefine.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
    for i:=0 to listbox1.items.count-1 do
    begin
       if listbox1.Selected[i] then
         if listbox2.items.indexof(listbox1.items[i])<0 then
            listbox2.Items.add(listbox1.items[i]);
    end;
    label1.caption:=inttostr(listbox2.items.count);
    label1.update;
end;

procedure TForminsdefine.SpeedButton2Click(Sender: TObject);
var i:integer;
begin
    for i:=0 to listbox1.items.count-1 do
      if listbox2.items.indexof(listbox1.items[i])<0 then
        listbox2.items.add(listbox1.items[i]);
    label1.caption:=inttostr(listbox2.items.count);
    label1.update;
end;

procedure TForminsdefine.SpeedButton3Click(Sender: TObject);
var i:integer;
    list:TStringList;
begin
  list:=TStringList.Create;
  for i:=0 to listbox2.items.count-1 do
    list.add(listbox2.items[i]);
  for i:=0 to listbox2.items.count-1 do
    if listbox2.Selected[i] then
      list.delete(i);
  listbox2.items.clear;
  for i:=0 to list.Count-1 do
    listbox2.Items.Add(list.Strings[i]);
    label1.caption:=inttostr(listbox2.items.count);
    label1.update;
end;

procedure TForminsdefine.SpeedButton4Click(Sender: TObject);
begin
  listbox2.clear;
    label1.caption:=inttostr(listbox2.items.count);
    label1.update;
end;

procedure TForminsdefine.ListBox1DblClick(Sender: TObject);
begin
  if listbox2.items.indexof(listbox1.items[listbox1.itemindex])<0 then
     listbox2.items.add(listbox1.items[listbox1.itemindex]);
end;

procedure TForminsdefine.DateTimePicker2Change(Sender: TObject);
begin
   maskedit1.text:=formatdatetime('yyyy'+dateseparator+'mm'+dateseparator+'dd',datetimepicker2.date);
end;

procedure TForminsdefine.formchangelan;
var i,j:integer;
begin
  if language='Chinese_GB' then
  begin
       Caption:=BIG5toGB(Caption);
       Font.Charset:=GB2312_CHARSET;
       for i:=0 to ComponentCount-1 do
       begin
          if components[i].ClassType=TToolBar then
          begin
             TToolBar(components[i]).Font.Charset:=GB2312_CHARSET;
             for j:=0 to TToolBar(components[i]).ButtonCount-1 do
             begin
                TToolBar(components[i]).Buttons[j].Caption:=BIG5toGB(TToolBar(components[i]).Buttons[j].Caption);
                TToolBar(components[i]).Buttons[j].Hint:=BIG5toGB(TToolBar(components[i]).Buttons[j].Hint);
             end;
          end;
          if components[i].ClassType=TTabSheet then
          begin
             TTabSheet(components[i]).Font.Charset:=GB2312_CHARSET;
             TTabSheet(components[i]).Caption:=BIG5toGB(TTabSheet(components[i]).Caption);
             TTabSheet(components[i]).Hint:=BIG5toGB(TTabSheet(components[i]).Hint);
          end;
          if components[i].ClassType=TButton then
          begin
             TButton(components[i]).Font.Charset:=GB2312_CHARSET;
             TButton(Components[i]).Caption:=BIG5toGB(TButton(Components[i]).Caption);
             TButton(Components[i]).Hint:=BIG5toGB(TButton(Components[i]).Hint);
          end;
          if components[i].ClassType=TSpeedButton then
          begin
             TSpeedButton(components[i]).Font.Charset:=GB2312_CHARSET;
             TSpeedButton(components[i]).Caption:=BIG5toGB(TSpeedButton(Components[i]).Caption);
             TSpeedButton(components[i]).Hint:=BIG5toGB(TSpeedButton(components[i]).Hint);
          end;
          if components[i].ClassType=TBitBtn then
          begin
             TBitBtn(components[i]).Font.Charset:=GB2312_CHARSET;
             TBitBtn(components[i]).Caption:=BIG5toGB(TBitBtn(Components[i]).Caption);
             TBitBtn(components[i]).Hint:=BIG5toGB(TBitBtn(Components[i]).Hint);
          end;
          if components[i].ClassType=TRadioButton then
          begin
             TRadioButton(components[i]).Font.Charset:=GB2312_CHARSET;
             TRadioButton(components[i]).Caption:=BIG5toGB(TRadioButton(Components[i]).Caption);
             TRadioButton(components[i]).Hint:=BIG5toGB(TRadioButton(Components[i]).Hint);
          end;
          if components[i].ClassType=TLabel then
          begin
             TLabel(components[i]).Font.Charset:=GB2312_CHARSET;
             TLabel(components[i]).Caption:=BIG5toGB(TLabel(Components[i]).Caption);
             TLabel(components[i]).Hint:=BIG5toGB(TLabel(Components[i]).Hint);
          end;
          if components[i].ClassType=TStaticText then
          begin
             TStaticText(components[i]).Font.Charset:=GB2312_CHARSET;
             TStaticText(Components[i]).Caption:=BIG5toGB(TStaticText(components[i]).Caption);
             TStaticText(Components[i]).Hint:=BIG5toGB(TStaticText(components[i]).Hint);
          end;
          if components[i].ClassType=TGroupBox then
          begin
             TGroupBox(components[i]).Font.Charset:=GB2312_CHARSET;
             TGroupBox(components[i]).Caption:=BIG5toGB(TGroupBox(Components[i]).Caption);
             TGroupBox(components[i]).Hint:=BIG5toGB(TGroupBox(Components[i]).Hint);
          end;
          if components[i].ClassType=TRadioGroup then
          begin
             TRadioGroup(components[i]).Font.Charset:=GB2312_CHARSET;
             TRadioGroup(components[i]).Caption:=BIG5toGB(TRadioGroup(components[i]).Caption);
             TRadioGroup(components[i]).Hint:=BIG5toGB(TRadioGroup(components[i]).Hint);
             for j:=0 to TRadioGroup(components[i]).Items.Count-1 do
                TRadioGroup(components[i]).Items.Strings[j]:=BIG5toGB(TRadioGroup(components[i]).Items.Strings[j]);
          end;
          if components[i].ClassType=TRxDBLookupcombo then
          begin
             TRxDBLookupcombo(components[i]).Font.Charset:=GB2312_CHARSET;
             TRxDBLookupcombo(components[i]).DisplayEmpty:=BIG5toGB(TRxDBLookupcombo(components[i]).DisplayEmpty);
             TRxDBLookupcombo(components[i]).Hint:=BIG5toGB(TRxDBLookupcombo(components[i]).Hint);
          end;
          if components[i].ClassType=TCheckBox then
          begin
             TCheckBox(components[i]).Font.Charset:=GB2312_CHARSET;
             TCheckBox(components[i]).Caption:=BIG5toGB(TCheckBox(Components[i]).Caption);
             TCheckBox(components[i]).Hint:=BIG5toGB(TCheckBox(Components[i]).Hint);
          end;
          if components[i].ClassType=TCombobox then
          begin
             TCombobox(components[i]).Font.Charset:=GB2312_CHARSET;
             TCombobox(components[i]).Hint:=BIG5toGB(TCombobox(components[i]).Hint);
             for j:=0 to TCombobox(components[i]).Items.Count-1 do
                 TCombobox(components[i]).Items.Strings[j]:=BIG5toGB(TCombobox(components[i]).Items.Strings[j]);
          end;
          if components[i].ClassType=TPanel then
          begin
             TPanel(components[i]).Font.Charset:=GB2312_CHARSET;
             TPanel(components[i]).Caption:=BIG5toGB(TPanel(components[i]).Caption);
             TPanel(components[i]).Hint:=BIG5toGB(TPanel(components[i]).Hint);
          end;
       end; //for
  end;  //if
end;

end.
12

insdefine.pas - 源码说明

本页面展示了「pasa人力资源考勤管理系统」中的 insdefine.pas 源码文件，采用 PAS 编程语言编写，共 546 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与pasa相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?