?? unit1.pas

?? 飛思科技的書不錯
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
unit Unit1;

interface

uses
  Unit2, Unit3, Unit4,Unit5,Unit6,Unit7,Unit8,DB,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, Menus, ToolWin, ImgList, StdCtrls, DBCtrls,
  Mask, Grids, DBGrids, Buttons, TeEngine, Series, TeeProcs, Chart, DbChart;

type
  TForm1 = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Panel1: TPanel;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit_No: TDBEdit;
    DBEdit_Name: TDBEdit;
    DBEdit_PName: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit_Birth: TDBEdit;
    ImageList1: TImageList;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    DBEdit_Sex: TDBEdit;
    DBEdit_Home: TDBEdit;
    DBEdit_Race: TDBEdit;
    DBEdit_Helth: TDBEdit;
    DBEdit_Marrage: TDBEdit;
    DBEdit_Add: TDBEdit;
    DBEdit_Party: TDBEdit;
    DBEdit_PartyTime: TDBEdit;
    DBEdit_Policy: TDBEdit;
    DBEdit_Degree: TDBEdit;
    DBEdit_Dept: TDBEdit;
    DBEdit_WorkShop: TDBEdit;
    DBEdit_Class: TDBEdit;
    DBEdit_Work: TDBEdit;
    DBEdit_Level: TDBEdit;
    DBEdit_Major: TDBEdit;
    DBEdit_WorkTime: TDBEdit;
    DBEdit_SumWorkAge: TDBEdit;
    DBEdit_EnterTime: TDBEdit;
    DBEdit_LocalAge: TDBEdit;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Label14: TLabel;
    DBText1: TDBText;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    Label26: TLabel;
    DBText2: TDBText;
    Panel5: TPanel;
    DBGrid3: TDBGrid;
    Panel6: TPanel;
    DBGrid4: TDBGrid;
    Label27: TLabel;
    Label28: TLabel;
    DBText3: TDBText;
    DBText4: TDBText;
    Chart1: TChart;
    Series1: TPieSeries;
    BitBtn1: TBitBtn;
    BitBtn_sub: TBitBtn;
    BitBtn_exit: TBitBtn;
    Button_exp_add: TButton;
    Button_car_add: TButton;
    Button_relation_add: TButton;
    Button2: TButton;
    DBChart1: TDBChart;
    Series2: TBarSeries;
    Button_M_exp: TButton;
    Button_M_car: TButton;
    Button_M_relation: TButton;
    Button_M_salary: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    Button_D_exp: TButton;
    Button_D_car: TButton;
    Button_D_relation: TButton;
    Button_D_salary: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure DBEdit_SexClick(Sender: TObject);
    procedure DBEdit_BirthClick(Sender: TObject);
    procedure BitBtn_subClick(Sender: TObject);
    procedure BitBtn_exitClick(Sender: TObject);
    Procedure Set_ReadOnly;
    Procedure Set_NotReadOnly;
    procedure Button_exp_addClick(Sender: TObject);
    procedure Button_car_addClick(Sender: TObject);
    procedure Button_relation_addClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure Button_M_expClick(Sender: TObject);
    procedure Button_M_carClick(Sender: TObject);
    procedure Button_M_relationClick(Sender: TObject);
    procedure Button_M_salaryClick(Sender: TObject);
    procedure Button_D_expClick(Sender: TObject);
    procedure Button_D_carClick(Sender: TObject);
    procedure Button_D_relationClick(Sender: TObject);
    procedure Button_D_salaryClick(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);

    { Private declarations }
  public
   ModifyRecord:boolean;
   Modify_exp,Modify_car,Modify_relation,Modify_salary:boolean;

   //exp_pos:integer;
    { Public declarations }
  end;

var
  Form1: TForm1;
  NewRecord:boolean;
  count_exp:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    Form1.WindowState:=wsMaximized;
    NewRecord:=False;
    ModifyRecord:=False;
    BitBtn_sub.Enabled:=False;
    BitBtn_exit.Enabled:=False;
    Button_exp_add.Enabled:=True;
    Modify_exp:=False;
    Modify_car:=False;
    Modify_relation:=False;
    Modify_salary:=False;
end;

Procedure TForm1.Set_ReadOnly;
begin
      DBEdit_No.ReadOnly:=True;
        DBEdit_Name.ReadOnly:=True;
        DBEdit_PName.ReadOnly:=True;
        DBEdit_Add.ReadOnly:=True;
        DBEdit_CLass.ReadOnly:=True;
        DBEdit_Degree.ReadOnly:=True;
        DBEdit_Dept.ReadOnly:=True;
        DBEdit_Helth.ReadOnly:=True;
        DBEdit_Home.ReadOnly:=True;
        DBEdit_LOcalAge.ReadOnly:=True;
        DBEdit_Marrage.ReadOnly:=True;
        DBEdit_No.ReadOnly:=True;
        DBEdit_Party.ReadOnly:=True;
        DBEdit_Policy.ReadOnly:=True;
        DBEdit_Race.ReadOnly:=True;
        DBEdit_WorkShop.ReadOnly:=True;
        DBEdit_Level.ReadOnly:=True;
        DBEdit_SumWorkAge.ReadOnly:=True;
        DBEdit_Work.ReadOnly:=True;
        DBEdit_Major.ReadOnly:=True;
end;

procedure TForm1.Set_NotReadOnly;
begin
       DBEdit_No.ReadOnly:=False;
        DBEdit_Name.ReadOnly:=False;
        DBEdit_PName.ReadOnly:=False;
        DBEdit_Add.ReadOnly:=False;
        DBEdit_CLass.ReadOnly:=False;
        DBEdit_Degree.ReadOnly:=False;
        DBEdit_Dept.ReadOnly:=False;
        DBEdit_Helth.ReadOnly:=False;
        DBEdit_Home.ReadOnly:=False;
        DBEdit_LOcalAge.ReadOnly:=False;
        DBEdit_Marrage.ReadOnly:=False;
        DBEdit_No.ReadOnly:=False;
        DBEdit_Party.ReadOnly:=False;
        DBEdit_Policy.ReadOnly:=False;
        DBEdit_Race.ReadOnly:=False;
        DBEdit_WorkShop.ReadOnly:=False;
        DBEdit_Level.ReadOnly:=False;
        DBEdit_SumWorkAge.ReadOnly:=False;
        DBEdit_Work.ReadOnly:=False;
        DBEdit_Major.ReadOnly:=False;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
    with DM do
    begin
        if not Table_basic.Bof then
        begin
            Table_basic.Prior;
        end;
    end;
    Chart1.Series[0].Clear;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
   with DM do
    begin
        if not Table_basic.Eof then
        begin
            Table_basic.Next;
        end;
    end;
    Chart1.Series[0].Clear;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
    with DM do
    begin
    Table_basic.First;
    end;
    Chart1.Series[0].Clear;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
     with DM do
    begin
    Table_basic.Last;
    end;
     Chart1.Series[0].Clear;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
str:string;
begin
    with DM do
    begin
        str:=Table_basic.FieldValues['職工號'];
        Table_salary2.Active:=True;
        if  not Table_salary2.Locate('職工號',str,[loCaseInsensitive]) then
        begin
        ShowMessage('沒有數據可被圖示！');
        exit;
        end;
    end;

    with Chart1 do
        begin
        with DM do
            begin
            Series1.Clear ;
	        Series1.Add(Trunc(Table_salary.FieldValues['基本工資']),'基本工資',clBlue );
            Series1.Add(Trunc(Table_salary.FieldValues['藥費']),'藥費',clRed );
            Series1.Add(Trunc(Table_salary.FieldValues['特殊津貼']),'特殊津貼',clYellow );
            Series1.Add(Trunc(Table_salary.FieldValues['獎金']),'獎金',clGreen );
            end;
        end;

end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
    NewRecord:=True;
    BitBtn_sub.Enabled:=True;
    BitBtn_exit.Enabled:=True;
    with DM do
    begin
        Table_basic.Append;
    end;
    Set_NotReadOnly;

end;

procedure TForm1.DBEdit_SexClick(Sender: TObject);
begin
    if NewRecord then
    begin
        Form_sex.Show;
    end;
    if ModifyRecord then
    begin
        if DBEdit_Sex.EditText='男' then Form_sex.RadioGroup1.ItemIndex:=0
        else Form_sex.RadioGroup1.ItemIndex:=1;
        Form_sex.Show;
    end;
end;

procedure TForm1.DBEdit_BirthClick(Sender: TObject);
begin
    if NewRecord then
    begin
        Form_Date.Show;
    end;
    if ModifyRecord then
    begin
        with DM do
        begin
        Form_Date.MC_birth.Date:=Table_basic.FieldValues['出生日期'];
        Form_Date.MC_party.Date:=Table_basic.FieldValues['參加黨派時間'];
        Form_Date.MC_work.Date:=Table_basic.FieldValues['參加工作時間'];
        Form_Date.MC_Enter.Date:=Table_basic.FieldValues['進入本單位的日期'];
        end;
        Form_Date.Show;
    end;
end;


procedure TForm1.BitBtn_subClick(Sender: TObject);
begin
    if DBEdit_No.Text='' then
    begin
    ShowMessage('輸入非法');
    exit;
    end;
    if DBEdit_Name.Text='' then
    begin
    ShowMessage('輸入非法');
    exit;
    end;

    DBEdit_birth.Field.AsDateTime:=Form_Date.MC_birth.Date;
    DBEdit_PartyTime.Field.AsDateTime:=Form_Date.MC_Party.Date;
    DBEdit_EnterTime.Field.AsDateTime:=Form_Date.MC_Enter.Date;
    DBEdit_WorkTime.Field.AsDateTime:=Form_Date.MC_Work.Date;

    if Form_sex.RadioGroup1.ItemIndex=0 then
    DBEdit_sex.Field.AsString:='男'
    else
    DBEdit_sex.Field.AsString:='女';

    Set_ReadOnly;

    DM.Table_basic.Post;
    NewRecord:=False;
    ModifyRecord:=False;
    BitBtn_sub.Enabled:=False;
    BitBtn_exit.Enabled:=False;
end;

procedure TForm1.BitBtn_exitClick(Sender: TObject);
begin
    with DM do
    begin
        Table_basic.Cancel;
        Table_basic.First;
    end;

    Set_ReadOnly;

    NewRecord:=False;
    ModifyRecord:=False;
    BitBtn_sub.Enabled:=False;
    BitBtn_exit.Enabled:=False;
end;

procedure TForm1.Button_exp_addClick(Sender: TObject);
begin
   Form_exp.Edit_co.Text:='';
   Form_exp.Edit_dept.Text:='';
   Form_exp.Edit_res.Text:='';
   Form_exp.Edit_lev.Text:='';
   Form_exp.Edit_work.Text:='';
   Form_exp.Edit_job.Text:='';
   Form_exp.Show;
end;


procedure TForm1.Button_car_addClick(Sender: TObject);
begin
    Form_car.Edit_Major.Text:='';
    Form_car.Edit_School.Text:='';
    Form_car.ListBox_d.ItemIndex:=0;
    Form_car.ListBox_c.ItemIndex:=0;
    Form_car.ListBox_r.ItemIndex:=0;
    Form_car.Show;
end;

procedure TForm1.Button_relation_addClick(Sender: TObject);
begin
    Form_relation.Edit_Name.Text:='';
    Form_relation.Edit_Call.Text:='';
12 下一頁
?? 文件大小 571 K
?? 上傳用戶 buptbaishikele
?? 所屬分類 Delphi/CppBuilder
??? 相關標簽

#思科
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit1.pas

?? 快捷鍵說明
