【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供XGRYDA.PAS参考,解决您在XGRYDA.PAS学习中工作中的难题,参考学习。
unit xgryda;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, mp, ExtCtrls, StdCtrls, Buttons, Grids, DBGrids, DB;
type
TForm78 = class(TForm41)
Panel1: TPanel;
Label1: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
SpeedButton1: TSpeedButton;
DBGrid1: TDBGrid;
Panel2: TPanel;
Label8: TLabel;
Label4: TLabel;
Label5: TLabel;
Label14: TLabel;
CheckBox1: TCheckBox;
Label10: TLabel;
CheckBox2: TCheckBox;
Label11: TLabel;
CheckBox3: TCheckBox;
Label12: TLabel;
CheckBox4: TCheckBox;
Label13: TLabel;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
Edit2: TEdit;
Panel3: TPanel;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
CheckBox5: TCheckBox;
Label2: TLabel;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Label3: TLabel;
Label6: TLabel;
Label7: TLabel;
Label9: TLabel;
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn4MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormShow(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
Procedure Clear;
Procedure EditValue;
procedure SpeedButton1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form78: TForm78;
implementation
uses Dataa;
{$R *.dfm}
procedure TForm78.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
Key := #0;
end;
procedure TForm78.BitBtn4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inherited;
TBitBtn(Sender).Font.Color := clRed;
end;
procedure TForm78.BitBtn4MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inherited;
TBitBtn(Sender).Font.Color := clBlue;
end;
procedure TForm78.FormShow(Sender: TObject);
begin
inherited;
with Data3.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 员工基础信息表');
Open;
end;
if Data3.ADOQuery1.RecordCount<1 then
begin
Application.MessageBox('没有人员信息可以修改。','提示',64);
BitBtn1.Enabled := False;
BitBtn2.Enabled := False;
BitBtn3.Enabled := False;
BitBtn4.Enabled := False;
BitBtn5.Enabled := False;
Exit;
end;
Clear;
ComboBox2.Clear;
ComboBox4.Items.Clear;
with Data3.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 人员类别表');
Open;
end;
while Not Data3.ADOQuery1.Eof do
begin
ComboBox4.Items.Add(Data3.ADOQuery1.FieldByName('人员类别').Value);
Data3.ADOQuery1.Next;
end;
ComboBox5.Items.Clear;
with Data3.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 银行信息表');
Open;
end;
while Not Data3.ADOQuery1.Eof do
begin
ComboBox5.Items.Add(Data3.ADOQuery1.FieldByName('银行名称').Value);
Data3.ADOQuery1.Next;
end;
end;
procedure TForm78.ComboBox1Change(Sender: TObject);
begin
if Trim(ComboBox1.Text)<>'' then
begin
with Data3.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select distinct');
SQL.Add(ComboBox1.Text);
SQL.Add('From 员工基础信息表');
Open;
end;
ComboBox2.Clear;
while Not Data3.ADOQuery1.Eof do
begin
ComboBox2.Items.Add(Data3.ADOQuery1.Fields[0].Value);
Data3.ADOQuery1.Next;
end;
end;
end;
procedure TForm78.SpeedButton1Click(Sender: TObject);
begin
if CheckBox5.Checked = False then
begin
if (Trim(ComboBox1.Text)<>'')and(Trim(ComboBox2.Text)<>'')then
begin
with Data3.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 员工基础信息表 where');
SQL.Add(Trim(ComboBox1.Text));
SQL.Add('= ');
SQL.Add(':a');
Parameters.ParamByName('a').Value := Trim(ComboBox2.Text);
Open;
end;
if Data3.ADOQuery2.RecordCount<1 then
Clear
else
begin
DataSource1.DataSet := Data3.ADOQuery2;
EditValue;
end;
end
end
else
begin
with Data3.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 员工基础信息表 ');
Open;
end;
if Data3.ADOQuery2.RecordCount<1 then
Clear
else
begin
DataSource1.DataSet := Data3.ADOQuery2;
EditValue;
end;
end;
end;
procedure TForm78.Clear;
begin
ComboBox3.Text := '';
ComboBox4.Text := '';
ComboBox5.Text := '';
Label6.Caption := '';
Label9.Caption := '';
Edit2.Clear;
CheckBox1.Checked := False;
CheckBox2.Checked := True;
CheckBox3.Checked := True;
CheckBox4.Checked := False;
DataSource1.DataSet := Nil;
CheckBox5.Checked := False;
end;
procedure TForm78.EditValue;
begin
if Data3.ADOQuery2.RecordCount>0 then
begin
Label6.Caption := Data3.ADOQuery2.FieldByName('员工编号').Value;
Label9.Caption := Data3.ADOQuery2.FieldByName('员工').Value;
ComboBox3.Text := Data3.ADOQuery2.FieldByName('文化程度').Value;
ComboBox4.Text := Data3.ADOQuery2.FieldByName('人员类别').Value;
ComboBox5.Text := Data3.ADOQuery2.FieldByName('代发银行').Value;
Edit2.Text := Data3.ADOQuery2.FieldByName('银行账号').Value;
if Data3.ADOQuery2.FieldByName('停发工资').Value = 0 then
CheckBox1.Checked := False
else
CheckBox1.Checked := True;
if Data3.ADOQuery2.FieldByName('计税').Value = 0 then
CheckBox2.Checked := True
else
CheckBox2.Checked := False;
if Data3.ADOQuery2.FieldByName('中方人员').Value = 0 then
CheckBox3.Checked := True
else
CheckBox3.Checked := False;
if Data3.ADOQuery2.FieldByName('离职').Value = 0 then
CheckBox4.Checked := False
else
CheckBox4.Checked := True;
end;
end;
procedure TForm78.BitBtn4Click(Sender: TObject);
begin
inherited;
BitBtn5.Enabled := True;
if Data3.ADOQuery2.Active = True then
if Not Data3.ADOQuery2.Bof then
begin
Data3.ADOQuery2.Prior;
EditValue;
end
else
BitBtn4.Enabled := False;
end;
procedure TForm78.BitBtn5Click(Sender: TObject);
begin
inherited;
BitBtn4.Enabled := True;
if Data3.ADOQuery2.Active = True then
if Not Data3.ADOQuery2.Eof then
begin
Data3.ADOQuery2.Next;
EditValue;
end
else
BitBtn5.Enabled := False;
end;
procedure TForm78.BitBtn3Click(Sender: TObject);
begin
inherited;
Close;
end;
procedure TForm78.BitBtn2Click(Sender: TObject);
begin
inherited;
if Data3.ADOQuery2.RecordCount>0 then
EditValue;
end;
procedure TForm78.BitBtn1Click(Sender: TObject);
begin
inherited;
if Data3.ADOQuery2.RecordCount>0 then
begin
if Application.MessageBox('确实要修改当前记录吗?','提示',MB_YesNo)= ID_Yes then
begin
if (Trim(ComboBox3.Text)<>'')and(Trim(ComboBox4.Text)<>'')and(Trim(ComboBox5.Text)<>'')and
(Trim(Edit2.Text)<>'') then
begin
Try
Data3.ADOQuery2.Edit;
Data3.ADOQuery2.FieldByName('文化程度').Va
上一篇:
XGMM.pas
下一篇:
asp论文:浅论ASP在多媒体网页课件制作中的应用