开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
main.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

main.pas：源码内容
  1. unit main;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBCtrls, Db, DBTables, Grids, DBGrids, ExtCtrls, StdCtrls, Variants;
  9. type
  10.   TMainForm = class(TForm)
  11.     Panel1: TPanel;
  12.     DBGrid1: TDBGrid;
  13.     DBNavigator1: TDBNavigator;
  14.     btnClose: TButton;
  15.     btnApply: TButton;
  16.     procedure btnCloseClick(Sender: TObject);
  17.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  18.     procedure FormCreate(Sender: TObject);
  19.     procedure DBGrid1EditButtonClick(Sender: TObject);
  20.     procedure btnApplyClick(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  27. var
  28.   MainForm: TMainForm;
  30. implementation
  32. uses
  33.   Data, depts, jobs;
  35. {$R *.DFM}
  37. resourcestring
  38.   CloseMsg = 'Data has been modified.'#13#13'Save changes?';
  40. procedure TMainForm.btnCloseClick(Sender: TObject);
  41. begin
  42.   Close;
  43. end;
  45. procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  46. var
  47.   Res: Integer;
  48. begin
  49.   with dmData do
  50.     if qryEmployee.UpdatesPending then
  51.     begin
  52.       Res := MessageDlg(CloseMsg, mtInformation, mbYesNoCancel, 0);
  53.       if Res = mrYes then
  54.         AppDB.ApplyUpdates([qryEmployee]);
  55.       CanClose := Res <> mrCancel;
  56.     end;
  57. end;
  59. procedure TMainForm.FormCreate(Sender: TObject);
  60. begin
  61.   dmData.qryEmployee.Open;
  62. end;
  64. procedure TMainForm.DBGrid1EditButtonClick(Sender: TObject);
  65. begin
  66.   // Department?
  67.   if DBGrid1.SelectedField = dmData.qryEmployeeDEPARTMENT then
  68.     with TfrmDepartments.Create(Self) do
  69.     try
  70.       dmData.qryDepartment.Locate('DEPT_NO',
  71.         dmData.qryEmployeeDEPT_NO.Value, []);
  72.       if ShowModal = mrOk then
  73.         with dmData do
  74.           begin
  75.             if not (qryEmployee.State in [dsEdit, dsInsert]) then
  76.               qryEmployee.Edit;
  77.             qryEmployeeDEPT_NO.Value :=  qryDepartment.Fields[0].Value;
  78.             qryEmployeeDEPARTMENT.Value := qryDepartment.Fields[1].Value;
  79.           end;
  80.     finally
  81.       Free;
  82.     end
  83.   else
  84.     with TfrmJobs.Create(Self) do
  85.     try
  86.       with dmData do
  87.         qryJob.Locate('JOB_CODE;JOB_GRADE;JOB_COUNTRY',
  88.           VarArrayOf([qryEmployeeJOB_CODE.Value,qryEmployeeJOB_GRADE.Value,
  89.           qryEmployeeJOB_COUNTRY.Value]), []);
  90.       if ShowModal = mrOk then
  91.         with dmData do
  92.         begin
  93.           if not (qryEmployee.State in [dsEdit, dsInsert]) then
  94.             qryEmployee.Edit;
  95.           qryEmployeeJOB_CODE.Value :=  qryJob.Fields[0].Value;
  96.           qryEmployeeJOB_GRADE.Value := qryJob.Fields[1].Value;
  97.           qryEmployeeJOB_COUNTRY.Value := qryJob.Fields[2].Value;
  98.           qryEmployeeJOB_TITLE.Value := qryJob.Fields[3].Value;
  99.           // set salary to min_salary
  100.           qryEmployeeSALARY.Value := qryJob.Fields[4].Value;
  101.         end;
  102.     finally
  103.       Free;
  104.     end;
  105. end;
  107. procedure TMainForm.btnApplyClick(Sender: TObject);
  108. begin
  109.   with dmData do
  110.     if qryEmployee.UpdatesPending then
  111.     begin
  112.       AppDB.ApplyUpdates([qryEmployee]);
  113.       // refresh data
  114.       qryEmployee.Close;
  115.       qryEmployee.Open;
  116.       btnApply.Enabled := False;
  117.     end;
  118. end;
  120. end.